PROGRAM MAKE_SPEC_TABLE

IMPLICIT NONE

INTEGER, PARAMETER :: EB = SELECTED_REAL_KIND(12)    !< Precision of "Eight Byte" reals
INTEGER, PARAMETER :: LABEL_LENGTH=60                !< Maximum length of most labels
INTEGER, PARAMETER :: FORMULA_LENGTH=255             !< Maximum length of chemical formulae
INTEGER :: I
CHARACTER(1) :: LIQUID,GIBBS

TYPE THERMO_DATA_TYPE
   CHARACTER(FORMULA_LENGTH):: FORMULA='null' !< Chemical formula of species
   CHARACTER(LABEL_LENGTH):: NAME=''          !< Chemical name f species
   CHARACTER(LABEL_LENGTH):: POLY=''          !< Type of polynomial fit for data
   CHARACTER(LABEL_LENGTH):: RADCAL_ID=''     !< Species to use for RADCAL properties
   INTEGER :: BANDS=0                         !< Number of temperature bands in gas data
   REAL(EB) :: H_F=0._EB                      !< Gas heat of formation (kJ/kg)
   REAL(EB) :: PR=0._EB                       !< Gas Prandtl number
   REAL(EB) :: SIGMA=0._EB                    !< Lennard-Jones sigma (Angstroms)
   REAL(EB) :: EPSOK=0._EB                    !< Lennard-Jones e/k (K)
   REAL(EB) :: T(4)=0._EB                     !< Band endpoints for gas CP data
   REAL(EB) :: A(7,3)=0._EB                   !< Polynomial data for gas CP (plus H and S if NASA7 or NASA9)
   REAL(EB) :: B(2,3)=0._EB                   !< B(1,:) is enthalpy (kJ/mol) at band bottoms, 
                                              !  B(2,:) is entropy (kJ/mol/K) at band bottoms
   INTEGER :: BANDS_L                         !< Number of temperature bands in CP_L data
   REAL(EB) :: T_L(3)=0._EB                   !< Band end points for CP_L (K)
   REAL(EB) :: A_L(7,2)=0._EB                 !< Polynomial data for CP_L
   REAL(EB) :: H_V                            !< Heat of vaporization (kJ/kg)
   REAL(EB) :: T_REF                          !< Reference temperature for H_V (K)
   REAL(EB) :: T_MELT                         !< Liquid melting temperture (K)
   REAL(EB) :: T_BOIL                         !< Liquid boiling temperature (K)
   REAL(EB) :: DENSITY                        !< Liquid density (kg/m^3)
   REAL(EB) :: CP_UNIT=1._EB                  !< Unit correction factor for CP_L
   REAL(EB) :: T_UNIT=1._EB                   !< Unit correction factor for T
   REAL(EB) :: BETA=0.000889_EB               !< Liquid coefficient of thermal expansion (1/K) H2O properties as default.
   REAL(EB) :: MU=0.00089_EB                  !< Liquid viscosity  (Ns/m^2) H2O properties as default
   REAL(EB) :: K=0.6_EB                       !< Liquid conductivity (W/m/K) H2O properties default
   LOGICAL :: LIQUID = .FALSE.                !< Species has liquid properties defined
   LOGICAL :: FUEL=.FALSE.                   !< Use fuel property array for MIE
END TYPE THERMO_DATA_TYPE

TYPE(THERMO_DATA_TYPE), TARGET:: THERMO_DATA(-1:367)
TYPE(THERMO_DATA_TYPE), POINTER :: TD=>NULL()

CALL DEFINE_THERMO_PROPS

OPEN(555,FILE="../../FDS_User_Guide/spec_table.tex")

WRITE(555,'(A)') "\scriptsize"
WRITE(555,'(A)') "\begin{longtable}{@{\extracolsep{\fill}}|l|c|c|c|c|c|c|c|c|l|}"
WRITE(555,'(A,A)') "\caption[Pre-defined gas and liquid species]{Pre-defined gas and liquid species~",&
                   "\cite{NASA_TM_4513,NASA_TP_211556,NASA_TR_132,NIST_JANAF,Incropera:1,Faghri,Hardy:1,Martinez:1}}"
WRITE(555,'(A)') "\label{tab:gas_species}\\"
WRITE(555,'(A)') "\hline"
WRITE(555,'(A,A)') "Species & Chemical         & Temp. Range & $\Delta \mathrm{H}_{\mathrm{f}}$ & $\sigma$ & $\epsilon/k$   &",&
   " Liquid   & Gibbs  &  Pr  & RadCal                     \\"
WRITE(555,'(A,A)') "        & Formula          & (K)         & (kJ/mol)                         & (\AA)    & (K)            &",&
   "          &        &      & Surrogate                  \\"
WRITE(555,'(A)') "\hline \hline"
WRITE(555,'(A)') "\endfirsthead"
WRITE(555,'(A)') "\caption[]{Optional gas and liquid species (continued).}\\"
WRITE(555,'(A)') "\hline"
WRITE(555,'(A,A)') "Species & Formula          & Temp. Range & $\Delta \mathrm{H}_{\mathrm{f}}$ & $\sigma$ & $\epsilon/k$   &",&
   " Liquid   & Gibbs  &  Pr  & RadCal                     \\"
WRITE(555,'(A,A)') "        &                  & (K)         & (kJ/mol)                         & (\AA)    & (K)            &",&
   "          &        &      & Surrogate                  \\"
WRITE(555,'(A)') "\hline \hline"
WRITE(555,'(A)') "\endhead"

DO I=1,367
   TD=>THERMO_DATA(I)
   IF (TD%LIQUID) THEN
      LIQUID = 'Y'
   ELSE
      LIQUID = ''
   ENDIF
   IF (TD%POLY=='NASA7' .OR. TD%POLY=='NASA9') THEN
      GIBBS = 'Y'
   ELSE
      GIBBS = ''
   ENDIF
   WRITE(555,'(4A,2(I0,A),F8.2,A,F6.3,A,F9.2,5A,F5.2,3A)') TRIM(TD%NAME),'&',TRIM(TD%FORMULA),'&',INT(TD%T(1)),' -',&
                    INT(MAXVAL(TD%T)),'&',TD%H_F,'&',TD%SIGMA,'&',TD%EPSOK,'&',LIQUID,'&',GIBBS,'&',TD%PR,'&',TRIM(TD%RADCAL_ID),"\\ \hline"
ENDDO

WRITE(555,'(A)') "\end{longtable}"

CLOSE(555)

CONTAINS

SUBROUTINE DEFINE_THERMO_PROPS
! 
! POLY string indicates form of polynomial. Source based on value:
! NASA7 = NASA TM-4513
! NASA9 = NASA/TP 2002-211556
! MOSKVA = Vargaftik, N. B.    MOSKVA: IZDATELSTVO NAUKA 1972 , p. 284 (1972)
! DICTIONARY OF THERMOPHYSICAL PROPERTIES OF GASES AND LIQUIDS
! from InfoTherm, Fitz Chemie Berlin www.fitz-chemie.de/infotherm
! WEBBOOK = 5th order fit to NIST Webbook (https://webbook.nist.gov/) cp data
!
! Source for SIGMA/EPSOK and Pr given by comment string after variable
! NASA TR R-132 (R-132) or the Canterra distribution of GriMech3.0 (GRM3)
!
! Sources for Pr data are:
! airliquide.com = airliquide.com
! Bergman = Bergman, Lavine, Icropera, Dewitt Fundamentals of Heat and Mass Trasnfer 2011
! Faghri = Faghri&Zhang Transport Phenomena in Multiphase Systems
! Hardy = Hardy, Hylton, McKnight, ORNL Correlations for Thermal Flowmeters
! Martinez = Martinez, Termodinamica basica y aplicada, 1992
! R-132 = NASA TR R-132
! Liquid data from 4th Edition of the NIST-JANAF Thermochemical Tables
! unless A_L is all 7 terms plus CP_FAC is defined in which case it is the NASA9 reference.

THERMO_DATA(-1)%H_F      = -1.E30_EB
THERMO_DATA(-1)%SIGMA    = 3.798_EB
THERMO_DATA(-1)%EPSOK    = 71.4_EB
THERMO_DATA(-1)%PR       = 0.71_EB

THERMO_DATA(1)%FORMULA   = '(NaOH)2'
THERMO_DATA(1)%NAME      = 'SODIUM HYDROXIDE2'
THERMO_DATA(1)%POLY      = 'NASA7'
THERMO_DATA(1)%BANDS     = 2
THERMO_DATA(1)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.400000000E+04_EB/)
THERMO_DATA(1)%A(1:5,1)  = &
   (/ 0.534189220E+01_EB, 0.186522610E-01_EB,-0.180693670E-04_EB, 0.933724910E-08_EB,-0.198434450E-11_EB/)
THERMO_DATA(1)%B(1:2,1)  = (/-0.753642520E+05_EB, 0.169977050E+01_EB/)
THERMO_DATA(1)%A(1:5,2)  = &
   (/ 0.898718000E+01_EB, 0.642440530E-02_EB,-0.260401360E-05_EB, 0.508956580E-09_EB,-0.388381030E-13_EB/)
THERMO_DATA(1)%B(1:2,2)  = (/-0.762327580E+05_EB,-0.165294190E+02_EB/)
THERMO_DATA(1)%H_F       =  -607.6603479_EB
THERMO_DATA(1)%SIGMA     =  4.840_EB ! GRM3
THERMO_DATA(1)%EPSOK     =  1279.00_EB
THERMO_DATA(1)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(2)%FORMULA   = 'Air'
THERMO_DATA(2)%NAME      = 'LJ AIR'
THERMO_DATA(2)%POLY      = 'NASA9'
THERMO_DATA(2)%BANDS     = 3
THERMO_DATA(2)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(2)%A(1:7,1)  = &
   (/1.0304516E+04_EB,-2.0036051E+02_EB,5.0423057E+00_EB,-5.8392264E-03_EB,1.0796288E-05_EB,-8.0292801E-09_EB,2.2085701E-12_EB/)
THERMO_DATA(2)%B(1:2,1)  = (/-1.6671592E+02_EB,-4.6279029E+00_EB/)
THERMO_DATA(2)%A(1:7,2)  = &
   (/2.4688071E+05_EB,-1.2784990E+03_EB,5.1778308E+00_EB,-2.1943872E-04_EB,7.2014381E-08_EB,-1.0891057E-11_EB,6.6756489E-16_EB/)
THERMO_DATA(2)%B(1:2,2)  = (/6.5836880E+03_EB,-8.9024159E+00_EB/)
THERMO_DATA(2)%A(1:7,3)  = &
   (/7.6020698E+08_EB,-5.6694050E+05_EB,1.7353329E+02_EB,-2.5495938E-02_EB,2.0271670E-06_EB,-7.8211084E-11_EB,1.1506550E-15_EB/)
THERMO_DATA(2)%B(1:2,3)  = (/4.3793621E+06_EB,-1.4360785E+03_EB/)
THERMO_DATA(2)%H_F       =     -0.125530_EB
THERMO_DATA(2)%SIGMA     =  3.711_EB ! R-132
THERMO_DATA(2)%EPSOK     =    78.60_EB
THERMO_DATA(2)%PR        =  0.71_EB ! JPCRD 19(5)
 
THERMO_DATA(3)%FORMULA   = 'Al'
THERMO_DATA(3)%NAME      = 'ALUMINUM'
THERMO_DATA(3)%POLY      = 'NASA9'
THERMO_DATA(3)%BANDS     = 3
THERMO_DATA(3)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(3)%A(1:7,1)  = &
   (/ 0.500660889E+04_EB, 0.186130441E+02_EB, 0.241253111E+01_EB, 0.198760000E-03_EB,-0.243236000E-06_EB,&
      0.153828000E-09_EB,-0.394438000E-13_EB/)
THERMO_DATA(3)%B(1:2,1)  = (/ 0.388741268E+05_EB, 0.608658576E+01_EB/)
THERMO_DATA(3)%A(1:7,2)  = &
   (/-0.292082094E+05_EB, 0.116775188E+03_EB, 0.235690650E+01_EB, 0.773723000E-04_EB,-0.152946000E-07_EB,&
     -0.997167000E-12_EB, 0.505328000E-15_EB/)
THERMO_DATA(3)%B(1:2,2)  = (/ 0.382328865E+05_EB, 0.660092015E+01_EB/)
THERMO_DATA(3)%A(1:7,3)  = &
   (/-0.504068232E+09_EB, 0.380232265E+06_EB,-0.108234716E+03_EB, 0.154944430E-01_EB,-0.107010000E-05_EB,&
      0.359211000E-10_EB,-0.469604000E-15_EB/)
THERMO_DATA(3)%B(1:2,3)  = (/-0.290105050E+07_EB, 0.949188316E+03_EB/)
THERMO_DATA(3)%H_F       =    330.000000_EB
THERMO_DATA(3)%SIGMA     =  2.655_EB ! R-132
THERMO_DATA(3)%EPSOK     =  2750.00_EB
THERMO_DATA(3)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(4)%FORMULA   = 'Al'
THERMO_DATA(4)%NAME      = 'ALUMINUMm'
THERMO_DATA(4)%POLY      = 'NASA9'
THERMO_DATA(4)%BANDS     = 3
THERMO_DATA(4)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(4)%A(1:7,1)  = &
   (/ 0.291080172E+05_EB,-0.383698375E+03_EB, 0.465514280E+01_EB,-0.604582200E-02_EB, 0.857726000E-05_EB,&
     -0.547626000E-08_EB, 0.132271000E-11_EB/)
THERMO_DATA(4)%B(1:2,1)  = (/ 0.349061698E+05_EB,-0.595709770E+01_EB/)
THERMO_DATA(4)%A(1:7,2)  = &
   (/ 0.633981432E+06_EB,-0.238343846E+04_EB, 0.546997113E+01_EB,-0.129984000E-02_EB, 0.288831000E-06_EB,&
     -0.325324000E-10_EB, 0.147244000E-14_EB/)
THERMO_DATA(4)%B(1:2,2)  = (/ 0.478030654E+05_EB,-0.153690682E+02_EB/)
THERMO_DATA(4)%A(1:7,3)  = &
   (/ 0.590121285E+07_EB,-0.229600088E+04_EB, 0.307277484E+01_EB,-0.689471000E-04_EB, 0.441331000E-08_EB,&
     -0.144535000E-12_EB, 0.190575000E-17_EB/)
THERMO_DATA(4)%B(1:2,3)  = (/ 0.524187125E+05_EB, 0.145178138E+01_EB/)
THERMO_DATA(4)%H_F       =    281.090113_EB
THERMO_DATA(4)%SIGMA     =  2.655_EB ! R-132
THERMO_DATA(4)%EPSOK     =  2750.00_EB
THERMO_DATA(4)%PR        =  0.67_EB ! Al
 
THERMO_DATA(5)%FORMULA   = 'Al'
THERMO_DATA(5)%NAME      = 'ALUMINUMp'
THERMO_DATA(5)%POLY      = 'NASA9'
THERMO_DATA(5)%BANDS     = 3
THERMO_DATA(5)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(5)%A(1:7,1)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(5)%B(1:2,1)  = (/ 0.109064479E+06_EB, 0.379100578E+01_EB/)
THERMO_DATA(5)%A(1:7,2)  = &
   (/-0.418118325E+04_EB,-0.994855727E+01_EB, 0.254861588E+01_EB,-0.587876000E-04_EB, 0.313229000E-07_EB,&
     -0.774889000E-11_EB, 0.727445000E-15_EB/)
THERMO_DATA(5)%B(1:2,2)  = (/ 0.109101148E+06_EB, 0.348866729E+01_EB/)
THERMO_DATA(5)%A(1:7,3)  = &
   (/-0.908095854E+09_EB, 0.550967304E+06_EB,-0.127924418E+03_EB, 0.151050300E-01_EB,-0.893205000E-06_EB,&
      0.271938000E-10_EB,-0.336799000E-15_EB/)
THERMO_DATA(5)%B(1:2,3)  = (/-0.426869302E+07_EB, 0.114124544E+04_EB/)
THERMO_DATA(5)%H_F       =    913.015128_EB
THERMO_DATA(5)%SIGMA     =  2.655_EB ! R-132
THERMO_DATA(5)%EPSOK     =  2750.00_EB
THERMO_DATA(5)%PR        =  0.67_EB ! Al
 
THERMO_DATA(6)%FORMULA   = 'Al2'
THERMO_DATA(6)%NAME      = 'DIALUMINUM'
THERMO_DATA(6)%POLY      = 'NASA9'
THERMO_DATA(6)%BANDS     = 2
THERMO_DATA(6)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(6)%A(1:7,1)  = &
   (/-0.528150965E+04_EB,-0.172737452E+02_EB, 0.460407701E+01_EB,-0.261647000E-03_EB, 0.630232000E-06_EB,&
     -0.329094000E-09_EB, 0.888837000E-13_EB/)
THERMO_DATA(6)%B(1:2,1)  = (/ 0.590070639E+05_EB, 0.306018892E+01_EB/)
THERMO_DATA(6)%A(1:7,2)  = &
   (/-0.232072410E+07_EB, 0.921870789E+04_EB,-0.944695187E+01_EB, 0.999992000E-02_EB,-0.315480000E-05_EB,&
      0.436154000E-09_EB,-0.224116000E-13_EB/)
THERMO_DATA(6)%B(1:2,2)  = (/ 0.290458954E+04_EB, 0.996032074E+02_EB/)
THERMO_DATA(6)%H_F       =    501.301722_EB
THERMO_DATA(6)%SIGMA     =  2.940_EB ! R-132
THERMO_DATA(6)%EPSOK     =  2750.00_EB
THERMO_DATA(6)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(7)%FORMULA   = 'Al2O3'
THERMO_DATA(7)%NAME      = 'ALUMINUM OXIDE'
THERMO_DATA(7)%POLY      = 'NASA9'
THERMO_DATA(7)%BANDS     = 2
THERMO_DATA(7)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(7)%A(1:7,1)  = &
   (/-0.744337432E+04_EB, 0.882900421E+02_EB, 0.526466264E+01_EB, 0.250767890E-01_EB,-0.343454000E-04_EB,&
      0.230252000E-07_EB,-0.612253000E-11_EB/)
THERMO_DATA(7)%B(1:2,1)  = (/-0.687268595E+05_EB, 0.220232430E+01_EB/)
THERMO_DATA(7)%A(1:7,2)  = &
   (/-0.277778497E+06_EB,-0.491746593E+03_EB, 0.138670389E+02_EB,-0.146938000E-03_EB, 0.325041000E-07_EB,&
     -0.373087000E-11_EB, 0.173044000E-15_EB/)
THERMO_DATA(7)%B(1:2,2)  = (/-0.679075785E+05_EB,-0.437555987E+02_EB/)
THERMO_DATA(7)%H_F       =   -546.890530_EB
THERMO_DATA(7)%SIGMA     =  3.186_EB ! HEAF
THERMO_DATA(7)%EPSOK     =   557.49_EB
THERMO_DATA(7)%PR        =  1.00_EB ! HEAF
THERMO_DATA(7)%RADCAL_ID = 'SOOT'
 
THERMO_DATA(8)%FORMULA   = 'AlCl'
THERMO_DATA(8)%NAME      = 'ALUMINUM MONOCHLORIDE'
THERMO_DATA(8)%POLY      = 'NASA9'
THERMO_DATA(8)%BANDS     = 2
THERMO_DATA(8)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(8)%A(1:7,1)  = &
   (/ 0.238088139E+05_EB,-0.445715942E+03_EB, 0.599285399E+01_EB,-0.277730000E-02_EB, 0.310158000E-05_EB,&
     -0.181527000E-08_EB, 0.441466000E-12_EB/)
THERMO_DATA(8)%B(1:2,1)  = (/-0.520273603E+04_EB,-0.738329802E+01_EB/)
THERMO_DATA(8)%A(1:7,2)  = &
   (/-0.899346122E+06_EB, 0.276594206E+04_EB, 0.100350070E+01_EB, 0.226780700E-02_EB,-0.728054000E-06_EB,&
      0.118238000E-09_EB,-0.666050000E-14_EB/)
THERMO_DATA(8)%B(1:2,2)  = (/-0.249616445E+05_EB, 0.261692548E+02_EB/)
THERMO_DATA(8)%H_F       =    -51.007443_EB
THERMO_DATA(8)%SIGMA     =  3.578_EB ! R-132
THERMO_DATA(8)%EPSOK     =   932.00_EB
THERMO_DATA(8)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(9)%FORMULA   = 'AlCl'
THERMO_DATA(9)%NAME      = 'ALUMINUM MONOCHLORIDEp'
THERMO_DATA(9)%POLY      = 'NASA9'
THERMO_DATA(9)%BANDS     = 2
THERMO_DATA(9)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(9)%A(1:7,1)  = &
   (/ 0.346995522E+05_EB,-0.547990003E+03_EB, 0.610601113E+01_EB,-0.267471200E-02_EB, 0.269643000E-05_EB,&
     -0.146389000E-08_EB, 0.335873000E-12_EB/)
THERMO_DATA(9)%B(1:2,1)  = (/ 0.105171951E+06_EB,-0.781658637E+01_EB/)
THERMO_DATA(9)%A(1:7,2)  = &
   (/-0.754724082E+06_EB, 0.125154525E+04_EB, 0.444242491E+01_EB,-0.978612000E-03_EB, 0.634751000E-06_EB,&
     -0.115832000E-09_EB, 0.687002000E-14_EB/)
THERMO_DATA(9)%B(1:2,2)  = (/ 0.931833270E+05_EB, 0.404752111E+01_EB/)
THERMO_DATA(9)%H_F       =    861.849307_EB
THERMO_DATA(9)%SIGMA     =  3.578_EB ! R-132
THERMO_DATA(9)%EPSOK     =   932.00_EB
THERMO_DATA(9)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(10)%FORMULA   = 'AlCl3'
THERMO_DATA(10)%NAME      = 'ALUMINUM CHLORIDE'
THERMO_DATA(10)%POLY      = 'NASA9'
THERMO_DATA(10)%BANDS     = 2
THERMO_DATA(10)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(10)%A(1:7,1)  = &
   (/ 0.775060097E+05_EB,-0.144077972E+04_EB, 0.140174414E+02_EB,-0.638163100E-02_EB, 0.587167000E-05_EB,&
     -0.290887000E-08_EB, 0.599405000E-12_EB/)
THERMO_DATA(10)%B(1:2,1)  = (/-0.657934318E+05_EB,-0.449401780E+02_EB/)
THERMO_DATA(10)%A(1:7,2)  = &
   (/-0.137863092E+06_EB,-0.557920729E+02_EB, 0.100419039E+02_EB,-0.168217000E-04_EB, 0.372466000E-08_EB,&
     -0.427553000E-12_EB, 0.198234000E-16_EB/)
THERMO_DATA(10)%B(1:2,2)  = (/-0.734340747E+05_EB,-0.204513043E+02_EB/)
THERMO_DATA(10)%H_F       =   -584.678863_EB
THERMO_DATA(10)%SIGMA     =  5.127_EB ! R-132
THERMO_DATA(10)%EPSOK     =   472.00_EB
THERMO_DATA(10)%PR        =  0.73_EB ! R-132
 
THERMO_DATA(11)%FORMULA   = 'AlF'
THERMO_DATA(11)%NAME      = 'ALUMINUM MONOFLUORIDE'
THERMO_DATA(11)%POLY      = 'NASA9'
THERMO_DATA(11)%BANDS     = 2
THERMO_DATA(11)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(11)%A(1:7,1)  = &
   (/ 0.302077169E+05_EB,-0.308098695E+03_EB, 0.388641314E+01_EB, 0.356434400E-02_EB,-0.585847000E-05_EB,&
      0.438811000E-08_EB,-0.125691000E-11_EB/)
THERMO_DATA(11)%B(1:2,1)  = (/-0.311757286E+05_EB, 0.203256717E+01_EB/)
THERMO_DATA(11)%A(1:7,2)  = &
   (/-0.711122905E+06_EB, 0.190301332E+04_EB, 0.219160718E+01_EB, 0.142147100E-02_EB,-0.417963000E-06_EB,&
      0.615380000E-10_EB,-0.294540000E-14_EB/)
THERMO_DATA(11)%B(1:2,2)  = (/-0.454072896E+05_EB, 0.161316374E+02_EB/)
THERMO_DATA(11)%H_F       =   -264.060446_EB
THERMO_DATA(11)%SIGMA     =  3.148_EB ! R-132
THERMO_DATA(11)%EPSOK     =   556.00_EB
THERMO_DATA(11)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(12)%FORMULA   = 'AlF'
THERMO_DATA(12)%NAME      = 'ALUMINUM MONOFLUORIDEp'
THERMO_DATA(12)%POLY      = 'NASA9'
THERMO_DATA(12)%BANDS     = 2
THERMO_DATA(12)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(12)%A(1:7,1)  = &
   (/ 0.364303812E+05_EB,-0.252463448E+03_EB, 0.310531049E+01_EB, 0.573327000E-02_EB,-0.883979000E-05_EB,&
      0.634358000E-08_EB,-0.164501000E-11_EB/)
THERMO_DATA(12)%B(1:2,1)  = (/ 0.837023745E+05_EB, 0.676401558E+01_EB/)
THERMO_DATA(12)%A(1:7,2)  = &
   (/ 0.150510113E+07_EB,-0.223666882E+04_EB, 0.309821672E+01_EB, 0.311541400E-02_EB,-0.116843000E-05_EB,&
      0.177359000E-09_EB,-0.966584000E-14_EB/)
THERMO_DATA(12)%B(1:2,2)  = (/ 0.988508385E+05_EB, 0.599189459E+01_EB/)
THERMO_DATA(12)%H_F       =    692.233561_EB
THERMO_DATA(12)%SIGMA     =  3.148_EB ! R-132
THERMO_DATA(12)%EPSOK     =   556.00_EB
THERMO_DATA(12)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(13)%FORMULA   = 'AlF3'
THERMO_DATA(13)%NAME      = 'ALUMINUM FLUORIDE'
THERMO_DATA(13)%POLY      = 'NASA9'
THERMO_DATA(13)%BANDS     = 2
THERMO_DATA(13)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(13)%A(1:7,1)  = &
   (/ 0.441026352E+05_EB,-0.566749574E+03_EB, 0.583307285E+01_EB, 0.160353510E-01_EB,-0.241326000E-04_EB,&
      0.171411000E-07_EB,-0.474754000E-11_EB/)
THERMO_DATA(13)%B(1:2,1)  = (/-0.144334999E+06_EB,-0.546161366E+01_EB/)
THERMO_DATA(13)%A(1:7,2)  = &
   (/-0.249397216E+06_EB,-0.291120252E+03_EB, 0.102166293E+02_EB,-0.864299000E-04_EB, 0.190571000E-07_EB,&
     -0.218106000E-11_EB, 0.100906000E-15_EB/)
THERMO_DATA(13)%B(1:2,2)  = (/-0.147569428E+06_EB,-0.270398324E+02_EB/)
THERMO_DATA(13)%H_F       =  -1209.276940_EB
THERMO_DATA(13)%SIGMA     =  4.198_EB ! R-132
THERMO_DATA(13)%EPSOK     =  1846.00_EB
THERMO_DATA(13)%PR        =  0.73_EB ! R-132
 
THERMO_DATA(14)%FORMULA   = 'AlN'
THERMO_DATA(14)%NAME      = 'ALUMINUM NITRIDE'
THERMO_DATA(14)%POLY      = 'NASA9'
THERMO_DATA(14)%BANDS     = 2
THERMO_DATA(14)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(14)%A(1:7,1)  = &
   (/ 0.271664508E+05_EB,-0.254349111E+03_EB, 0.353898772E+01_EB, 0.529625600E-02_EB,-0.984570000E-05_EB,&
      0.845221000E-08_EB,-0.259230000E-11_EB/)
THERMO_DATA(14)%B(1:2,1)  = (/ 0.530999491E+05_EB, 0.539943522E+01_EB/)
THERMO_DATA(14)%A(1:7,2)  = &
   (/ 0.382121422E+07_EB,-0.106777660E+05_EB, 0.144917422E+02_EB,-0.372722700E-02_EB, 0.792277000E-06_EB,&
     -0.808689000E-10_EB, 0.289354000E-14_EB/)
THERMO_DATA(14)%B(1:2,2)  = (/ 0.120523634E+06_EB,-0.728858512E+02_EB/)
THERMO_DATA(14)%H_F       =    438.829011_EB
THERMO_DATA(14)%SIGMA     =  3.369_EB ! R-132
THERMO_DATA(14)%EPSOK     =  2682.00_EB
THERMO_DATA(14)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(15)%FORMULA   = 'AlO'
THERMO_DATA(15)%NAME      = 'ALUMINUM MONOXIDE'
THERMO_DATA(15)%POLY      = 'NASA9'
THERMO_DATA(15)%BANDS     = 3
THERMO_DATA(15)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(15)%A(1:7,1)  = &
   (/-0.768339110E+04_EB, 0.295796955E+03_EB, 0.480810844E+00_EB, 0.116922490E-01_EB,-0.159543000E-04_EB,&
      0.106077000E-07_EB,-0.264789000E-11_EB/)
THERMO_DATA(15)%B(1:2,1)  = (/ 0.584367217E+04_EB, 0.216099784E+02_EB/)
THERMO_DATA(15)%A(1:7,2)  = &
   (/ 0.156572116E+05_EB, 0.385574101E+04_EB,-0.592607978E+01_EB, 0.905096000E-02_EB,-0.293066000E-05_EB,&
      0.423853000E-09_EB,-0.228066000E-13_EB/)
THERMO_DATA(15)%B(1:2,2)  = (/-0.133169466E+05_EB, 0.683066344E+02_EB/)
THERMO_DATA(15)%A(1:7,3)  = &
   (/ 0.416566121E+08_EB,-0.376860876E+05_EB, 0.154786796E+02_EB,-0.956873000E-03_EB, 0.249311000E-07_EB,&
      0.668894000E-13_EB,-0.899867000E-17_EB/)
THERMO_DATA(15)%B(1:2,3)  = (/ 0.295778652E+06_EB,-0.942771580E+02_EB/)
THERMO_DATA(15)%H_F       =     67.319006_EB
THERMO_DATA(15)%SIGMA     =  3.204_EB ! R-132
THERMO_DATA(15)%EPSOK     =   542.00_EB
THERMO_DATA(15)%PR        =  0.69_EB ! R-132
 
THERMO_DATA(16)%FORMULA   = 'AlS'
THERMO_DATA(16)%NAME      = 'ALUMINUM SULFIDE'
THERMO_DATA(16)%POLY      = 'NASA9'
THERMO_DATA(16)%BANDS     = 2
THERMO_DATA(16)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(16)%A(1:7,1)  = &
   (/ 0.261174280E+05_EB,-0.347067389E+03_EB, 0.443620459E+01_EB, 0.334016800E-02_EB,-0.841020000E-05_EB,&
      0.850819000E-08_EB,-0.278087000E-11_EB/)
THERMO_DATA(16)%B(1:2,1)  = (/ 0.286377906E+05_EB, 0.752270549E+00_EB/)
THERMO_DATA(16)%A(1:7,2)  = &
   (/ 0.890984429E+07_EB,-0.250767745E+05_EB, 0.289345613E+02_EB,-0.983976700E-02_EB, 0.204532000E-05_EB,&
     -0.208797000E-09_EB, 0.815279000E-14_EB/)
THERMO_DATA(16)%B(1:2,2)  = (/ 0.188576161E+06_EB,-0.178603646E+03_EB/)
THERMO_DATA(16)%H_F       =    232.682009_EB
THERMO_DATA(16)%SIGMA     =  3.730_EB ! R-132
THERMO_DATA(16)%EPSOK     =  1526.00_EB
THERMO_DATA(16)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(17)%FORMULA   = 'Ar'
THERMO_DATA(17)%NAME      = 'ARGON'
THERMO_DATA(17)%POLY      = 'NASA9'
THERMO_DATA(17)%BANDS     = 3
THERMO_DATA(17)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(17)%A(1:7,1)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(17)%B(1:2,1)  = (/-0.745375000E+03_EB, 0.437967491E+01_EB/)
THERMO_DATA(17)%A(1:7,2)  = &
   (/ 0.201053847E+02_EB,-0.599266110E-01_EB, 0.250006940E+01_EB,-0.399214000E-07_EB, 0.120527000E-10_EB,&
     -0.181902000E-14_EB, 0.107858000E-18_EB/)
THERMO_DATA(17)%B(1:2,2)  = (/-0.744993961E+03_EB, 0.437918011E+01_EB/)
THERMO_DATA(17)%A(1:7,3)  = &
   (/-0.995126508E+09_EB, 0.645888726E+06_EB,-0.167589470E+03_EB, 0.231993340E-01_EB,-0.172108000E-05_EB,&
      0.653194000E-10_EB,-0.974015000E-15_EB/)
THERMO_DATA(17)%B(1:2,3)  = (/-0.507830034E+07_EB, 0.146529848E+04_EB/)
THERMO_DATA(17)%H_F       =      0.000000_EB
THERMO_DATA(17)%SIGMA     =  3.542_EB ! R-132
THERMO_DATA(17)%EPSOK     =    93.30_EB
THERMO_DATA(17)%PR        =  0.67_EB ! Hardy
THERMO_DATA(17)%LIQUID    = .TRUE.
THERMO_DATA(17)%T_L(1:2)  = (/300._EB,301._EB/)
THERMO_DATA(17)%A_L(3,1)  = 1110._EB
THERMO_DATA(17)%H_V = 164230.3215_EB !J/kg
THERMO_DATA(17)%T_REF = 83.8_EB !K
THERMO_DATA(17)%T_MELT = 83.8_EB !K
THERMO_DATA(17)%T_BOIL = 87.29_EB !K
THERMO_DATA(17)%DENSITY = 1430._EB !kg/m^3
THERMO_DATA(17)%K = 0.123_EB !W/m/K
THERMO_DATA(17)%MU = 0.000252_EB !N.s/m^2
THERMO_DATA(17)%BETA = 0.011_EB !1/K

THERMO_DATA(18)%FORMULA   = 'Ar'
THERMO_DATA(18)%NAME      = 'ARGONp'
THERMO_DATA(18)%POLY      = 'NASA9'
THERMO_DATA(18)%BANDS     = 3
THERMO_DATA(18)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(18)%A(1:7,1)  = &
   (/-0.573120917E+05_EB, 0.793079147E+03_EB,-0.171712122E+01_EB, 0.104418400E-01_EB,-0.118021000E-04_EB,&
      0.652813000E-08_EB,-0.144756000E-11_EB/)
THERMO_DATA(18)%B(1:2,1)  = (/ 0.179057223E+06_EB, 0.294915095E+02_EB/)
THERMO_DATA(18)%A(1:7,2)  = &
   (/-0.383596540E+06_EB, 0.816201970E+03_EB, 0.230134263E+01_EB,-0.495298000E-05_EB, 0.120511000E-07_EB,&
     -0.218505000E-11_EB, 0.126549000E-15_EB/)
THERMO_DATA(18)%B(1:2,2)  = (/ 0.177181146E+06_EB, 0.794750748E+01_EB/)
THERMO_DATA(18)%A(1:7,3)  = &
   (/ 0.100688483E+08_EB,-0.662436128E+04_EB, 0.444690820E+01_EB,-0.301757000E-03_EB, 0.261288000E-07_EB,&
     -0.120164000E-11_EB, 0.229921000E-16_EB/)
THERMO_DATA(18)%B(1:2,3)  = (/ 0.234950414E+06_EB,-0.103226226E+02_EB/)
THERMO_DATA(18)%H_F       =   1526.778410_EB
THERMO_DATA(18)%SIGMA     =  3.542_EB ! R-132
THERMO_DATA(18)%EPSOK     =    93.30_EB
THERMO_DATA(18)%PR        =  0.67_EB ! Hardy
 
THERMO_DATA(19)%FORMULA   = 'B'
THERMO_DATA(19)%NAME      = 'BORON'
THERMO_DATA(19)%POLY      = 'NASA9'
THERMO_DATA(19)%BANDS     = 3
THERMO_DATA(19)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(19)%A(1:7,1)  = &
   (/ 0.118239464E+03_EB,-0.700991690E-01_EB, 0.250023616E+01_EB,-0.458421000E-06_EB, 0.512319000E-09_EB,&
     -0.305722000E-12_EB, 0.753382000E-16_EB/)
THERMO_DATA(19)%B(1:2,1)  = (/ 0.684835908E+05_EB, 0.420950192E+01_EB/)
THERMO_DATA(19)%A(1:7,2)  = &
   (/-0.107265961E+06_EB, 0.322530716E+03_EB, 0.212640723E+01_EB, 0.210658000E-03_EB,-0.593713000E-07_EB,&
      0.737743000E-11_EB,-0.228244000E-15_EB/)
THERMO_DATA(19)%B(1:2,2)  = (/ 0.664341310E+05_EB, 0.687706967E+01_EB/)
THERMO_DATA(19)%A(1:7,3)  = &
   (/-0.415000131E+09_EB, 0.232957680E+06_EB,-0.472091371E+02_EB, 0.487765600E-02_EB,-0.206941000E-06_EB,&
      0.323352000E-11_EB,-0.182408000E-17_EB/)
THERMO_DATA(19)%B(1:2,3)  = (/-0.180290474E+07_EB, 0.443961764E+03_EB/)
THERMO_DATA(19)%H_F       =    575.598760_EB
THERMO_DATA(19)%SIGMA     =  2.265_EB ! R-132
THERMO_DATA(19)%EPSOK     =  3331.00_EB
THERMO_DATA(19)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(20)%FORMULA   = 'B'
THERMO_DATA(20)%NAME      = 'BORONm'
THERMO_DATA(20)%POLY      = 'NASA9'
THERMO_DATA(20)%BANDS     = 3
THERMO_DATA(20)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(20)%A(1:7,1)  = &
   (/ 0.220156811E+02_EB,-0.474046900E-02_EB, 0.250001424E+01_EB,-0.249706000E-07_EB, 0.255636000E-10_EB,&
     -0.141527000E-13_EB, 0.327177000E-17_EB/)
THERMO_DATA(20)%B(1:2,1)  = (/ 0.645179188E+05_EB, 0.461636729E+01_EB/)
THERMO_DATA(20)%A(1:7,2)  = &
   (/ 0.211801825E+02_EB, 0.207070000E-03_EB, 0.249999973E+01_EB, 0.145669000E-09_EB,-0.388857000E-13_EB,&
      0.509060000E-17_EB,-0.260157000E-21_EB/)
THERMO_DATA(20)%B(1:2,2)  = (/ 0.645178914E+05_EB, 0.461645583E+01_EB/)
THERMO_DATA(20)%A(1:7,3)  = &
   (/-0.131138648E+03_EB, 0.902890880E-01_EB, 0.249997857E+01_EB, 0.260639000E-08_EB,-0.171607000E-12_EB,&
      0.581087000E-17_EB,-0.792503000E-22_EB/)
THERMO_DATA(20)%B(1:2,3)  = (/ 0.645171740E+05_EB, 0.461664030E+01_EB/)
THERMO_DATA(20)%H_F       =    542.631498_EB
THERMO_DATA(20)%SIGMA     =  2.265_EB ! R-132
THERMO_DATA(20)%EPSOK     =  3331.00_EB
THERMO_DATA(20)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(21)%FORMULA   = 'B'
THERMO_DATA(21)%NAME      = 'BORONp'
THERMO_DATA(21)%POLY      = 'NASA9'
THERMO_DATA(21)%BANDS     = 3
THERMO_DATA(21)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(21)%A(1:7,1)  = &
   (/ 0.784979120E-01_EB,-0.894748000E-03_EB, 0.250000409E+01_EB,-0.957727000E-08_EB, 0.121814000E-10_EB,&
     -0.798675000E-14_EB, 0.211377000E-17_EB/)
THERMO_DATA(21)%B(1:2,1)  = (/ 0.165508026E+06_EB, 0.241905363E+01_EB/)
THERMO_DATA(21)%A(1:7,2)  = &
   (/-0.891154803E+04_EB, 0.458779009E+01_EB, 0.253150009E+01_EB,-0.490395000E-04_EB, 0.285333000E-07_EB,&
     -0.738218000E-11_EB, 0.712072000E-15_EB/)
THERMO_DATA(21)%B(1:2,2)  = (/ 0.165452630E+06_EB, 0.223866978E+01_EB/)
THERMO_DATA(21)%A(1:7,3)  = &
   (/-0.797732289E+09_EB, 0.473404494E+06_EB,-0.105528604E+03_EB, 0.117031010E-01_EB,-0.607553000E-06_EB,&
      0.148417000E-10_EB,-0.132832000E-15_EB/)
THERMO_DATA(21)%B(1:2,3)  = (/-0.360911696E+07_EB, 0.949739975E+03_EB/)
THERMO_DATA(21)%H_F       =   1382.315530_EB
THERMO_DATA(21)%SIGMA     =  2.265_EB ! R-132
THERMO_DATA(21)%EPSOK     =  3331.00_EB
THERMO_DATA(21)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(22)%FORMULA   = 'B2'
THERMO_DATA(22)%NAME      = 'BORON DIMER'
THERMO_DATA(22)%POLY      = 'NASA9'
THERMO_DATA(22)%BANDS     = 2
THERMO_DATA(22)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(22)%A(1:7,1)  = &
   (/-0.151641810E+06_EB, 0.263016895E+04_EB,-0.138135832E+02_EB, 0.521622520E-01_EB,-0.693049000E-04_EB,&
      0.446941000E-07_EB,-0.112850000E-10_EB/)
THERMO_DATA(22)%B(1:2,1)  = (/ 0.899525105E+05_EB, 0.981311849E+02_EB/)
THERMO_DATA(22)%A(1:7,2)  = &
   (/ 0.109459450E+07_EB,-0.260273574E+04_EB, 0.690945621E+01_EB,-0.640595000E-03_EB, 0.195173000E-06_EB,&
     -0.255590000E-10_EB, 0.105356000E-14_EB/)
THERMO_DATA(22)%B(1:2,2)  = (/ 0.118780761E+06_EB,-0.194904502E+02_EB/)
THERMO_DATA(22)%H_F       =    857.370506_EB
THERMO_DATA(22)%SIGMA     =  2.420_EB ! R-132
THERMO_DATA(22)%EPSOK     =  3331.00_EB
THERMO_DATA(22)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(23)%FORMULA   = 'B2H6'
THERMO_DATA(23)%NAME      = 'DIBORANE'
THERMO_DATA(23)%POLY      = 'NASA9'
THERMO_DATA(23)%BANDS     = 2
THERMO_DATA(23)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(23)%A(1:7,1)  = &
   (/-0.105284456E+05_EB, 0.104179556E+04_EB,-0.896051886E+01_EB, 0.549248090E-01_EB,-0.530520000E-04_EB,&
      0.301190000E-07_EB,-0.768877000E-11_EB/)
THERMO_DATA(23)%B(1:2,1)  = (/-0.925937435E+03_EB, 0.681259243E+02_EB/)
THERMO_DATA(23)%A(1:7,2)  = &
   (/ 0.283576541E+07_EB,-0.156760016E+05_EB, 0.322612233E+02_EB,-0.373861000E-02_EB, 0.771881000E-06_EB,&
     -0.841445000E-10_EB, 0.375222000E-14_EB/)
THERMO_DATA(23)%B(1:2,2)  = (/ 0.935837855E+05_EB,-0.192022339E+03_EB/)
THERMO_DATA(23)%H_F       =     36.600000_EB
THERMO_DATA(23)%SIGMA     =  4.821_EB ! R-132
THERMO_DATA(23)%EPSOK     =   213.20_EB
THERMO_DATA(23)%PR        =  0.72_EB ! R-132
 
THERMO_DATA(24)%FORMULA   = 'B2O3'
THERMO_DATA(24)%NAME      = 'DIBORON TRIOXIDE'
THERMO_DATA(24)%POLY      = 'NASA9'
THERMO_DATA(24)%BANDS     = 2
THERMO_DATA(24)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(24)%A(1:7,1)  = &
   (/ 0.737961191E+05_EB,-0.126362059E+04_EB, 0.107268151E+02_EB, 0.384138000E-03_EB, 0.597606000E-05_EB,&
     -0.655289000E-08_EB, 0.212395000E-11_EB/)
THERMO_DATA(24)%B(1:2,1)  = (/-0.962818314E+05_EB,-0.308807801E+02_EB/)
THERMO_DATA(24)%A(1:7,2)  = &
   (/ 0.390503530E+06_EB,-0.369134821E+04_EB, 0.155550260E+02_EB,-0.970765000E-03_EB, 0.206889000E-06_EB,&
     -0.231086000E-10_EB, 0.105014000E-14_EB/)
THERMO_DATA(24)%B(1:2,2)  = (/-0.826305441E+05_EB,-0.639086344E+02_EB/)
THERMO_DATA(24)%H_F       =   -835.382271_EB
THERMO_DATA(24)%SIGMA     =  4.158_EB ! R-132
THERMO_DATA(24)%EPSOK     =  2092.00_EB
THERMO_DATA(24)%PR        =  0.62_EB ! R-132
 
THERMO_DATA(25)%FORMULA   = 'BBr3'
THERMO_DATA(25)%NAME      = 'BORON TRIBROMIDE'
THERMO_DATA(25)%POLY      = 'NASA9'
THERMO_DATA(25)%BANDS     = 2
THERMO_DATA(25)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(25)%A(1:7,1)  = &
   (/ 0.396807369E+05_EB,-0.633108716E+03_EB, 0.805455157E+01_EB, 0.977757100E-02_EB,-0.161487000E-04_EB,&
      0.121612000E-07_EB,-0.351654000E-11_EB/)
THERMO_DATA(25)%B(1:2,1)  = (/-0.236672331E+05_EB,-0.110609939E+02_EB/)
THERMO_DATA(25)%A(1:7,2)  = &
   (/-0.190104679E+06_EB,-0.150362769E+03_EB, 0.101099990E+02_EB,-0.432310000E-04_EB, 0.940970000E-08_EB,&
     -0.106522000E-11_EB, 0.488305000E-16_EB/)
THERMO_DATA(25)%B(1:2,2)  = (/-0.274255306E+05_EB,-0.199749600E+02_EB/)
THERMO_DATA(25)%H_F       =   -205.300000_EB
THERMO_DATA(25)%SIGMA     =  5.439_EB ! R-132
THERMO_DATA(25)%EPSOK     =   430.00_EB
THERMO_DATA(25)%PR        =  0.73_EB ! R-132
 
THERMO_DATA(26)%FORMULA   = 'BCl'
THERMO_DATA(26)%NAME      = 'BORON MONOCHLORIDE'
THERMO_DATA(26)%POLY      = 'NASA9'
THERMO_DATA(26)%BANDS     = 2
THERMO_DATA(26)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(26)%A(1:7,1)  = &
   (/ 0.220245899E+05_EB,-0.170051116E+03_EB, 0.306607587E+01_EB, 0.559507000E-02_EB,-0.846087000E-05_EB,&
      0.608473000E-08_EB,-0.170289000E-11_EB/)
THERMO_DATA(26)%B(1:2,1)  = (/ 0.219740254E+05_EB, 0.638897892E+01_EB/)
THERMO_DATA(26)%A(1:7,2)  = &
   (/-0.742126254E+05_EB, 0.263809013E+03_EB, 0.360022765E+01_EB, 0.101886600E-02_EB,-0.466618000E-06_EB,&
      0.984900000E-10_EB,-0.646882000E-14_EB/)
THERMO_DATA(26)%B(1:2,2)  = (/ 0.191272648E+05_EB, 0.523531788E+01_EB/)
THERMO_DATA(26)%H_F       =    183.173437_EB
THERMO_DATA(26)%SIGMA     =  3.318_EB ! R-132
THERMO_DATA(26)%EPSOK     = 10126.00_EB
THERMO_DATA(26)%PR        =  0.69_EB ! R-132
 
THERMO_DATA(27)%FORMULA   = 'BCl'
THERMO_DATA(27)%NAME      = 'BORON MONOCHLORIDEp'
THERMO_DATA(27)%POLY      = 'NASA9'
THERMO_DATA(27)%BANDS     = 2
THERMO_DATA(27)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(27)%A(1:7,1)  = &
   (/ 0.651440542E+05_EB,-0.684554101E+03_EB, 0.552727682E+01_EB,-0.445836000E-03_EB,-0.455773000E-06_EB,&
      0.637086000E-09_EB,-0.213437000E-12_EB/)
THERMO_DATA(27)%B(1:2,1)  = (/ 0.150942451E+06_EB,-0.691824639E+01_EB/)
THERMO_DATA(27)%A(1:7,2)  = &
   (/-0.216942354E+06_EB, 0.358997516E+03_EB, 0.403520837E+01_EB, 0.327445000E-03_EB,-0.863458000E-07_EB,&
      0.120706000E-10_EB,-0.526225000E-15_EB/)
THERMO_DATA(27)%B(1:2,2)  = (/ 0.144547722E+06_EB, 0.348822202E+01_EB/)
THERMO_DATA(27)%H_F       =   1234.280000_EB
THERMO_DATA(27)%SIGMA     =  3.318_EB ! R-132
THERMO_DATA(27)%EPSOK     = 10126.00_EB
THERMO_DATA(27)%PR        =  0.69_EB ! R-132
 
THERMO_DATA(28)%FORMULA   = 'BCl2'
THERMO_DATA(28)%NAME      = 'DICHLOROBORON'
THERMO_DATA(28)%POLY      = 'NASA9'
THERMO_DATA(28)%BANDS     = 2
THERMO_DATA(28)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(28)%A(1:7,1)  = &
   (/ 0.359887942E+05_EB,-0.360282650E+03_EB, 0.415768545E+01_EB, 0.115287750E-01_EB,-0.181657000E-04_EB,&
      0.134171000E-07_EB,-0.384082000E-11_EB/)
THERMO_DATA(28)%B(1:2,1)  = (/-0.676510705E+04_EB, 0.518231187E+01_EB/)
THERMO_DATA(28)%A(1:7,2)  = &
   (/ 0.350140313E+06_EB,-0.166220359E+04_EB, 0.883953472E+01_EB,-0.977254000E-03_EB, 0.246736000E-06_EB,&
     -0.250115000E-10_EB, 0.872295000E-15_EB/)
THERMO_DATA(28)%B(1:2,2)  = (/ 0.568290944E+03_EB,-0.214834834E+02_EB/)
THERMO_DATA(28)%H_F       =    -60.881490_EB
THERMO_DATA(28)%SIGMA     =  4.222_EB ! R-132
THERMO_DATA(28)%EPSOK     =   682.00_EB
THERMO_DATA(28)%PR        =  0.71_EB ! R-132
 
THERMO_DATA(29)%FORMULA   = 'BCl2'
THERMO_DATA(29)%NAME      = 'DICHLOROBORONp'
THERMO_DATA(29)%POLY      = 'NASA9'
THERMO_DATA(29)%BANDS     = 2
THERMO_DATA(29)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(29)%A(1:7,1)  = &
   (/ 0.806595624E+05_EB,-0.114960260E+04_EB, 0.101676530E+02_EB,-0.358649500E-02_EB, 0.283715000E-05_EB,&
     -0.122508000E-08_EB, 0.222479000E-12_EB/)
THERMO_DATA(29)%B(1:2,1)  = (/ 0.847861741E+05_EB,-0.293725699E+02_EB/)
THERMO_DATA(29)%A(1:7,2)  = &
   (/ 0.302929333E+06_EB,-0.130553316E+04_EB, 0.892039006E+01_EB,-0.728992000E-03_EB, 0.172783000E-06_EB,&
     -0.152357000E-10_EB, 0.422691000E-15_EB/)
THERMO_DATA(29)%B(1:2,2)  = (/ 0.865341577E+05_EB,-0.226746662E+02_EB/)
THERMO_DATA(29)%H_F       =    672.315402_EB
THERMO_DATA(29)%SIGMA     =  4.222_EB ! R-132
THERMO_DATA(29)%EPSOK     =   682.00_EB
THERMO_DATA(29)%PR        =  0.71_EB ! R-132
 
THERMO_DATA(30)%FORMULA   = 'BCl3'
THERMO_DATA(30)%NAME      = 'BORON CHLORIDE'
THERMO_DATA(30)%POLY      = 'NASA9'
THERMO_DATA(30)%BANDS     = 2
THERMO_DATA(30)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(30)%A(1:7,1)  = &
   (/ 0.239297034E+05_EB,-0.414037886E+03_EB, 0.548803526E+01_EB, 0.164839570E-01_EB,-0.245620000E-04_EB,&
      0.174388000E-07_EB,-0.484522000E-11_EB/)
THERMO_DATA(30)%B(1:2,1)  = (/-0.483946984E+05_EB,-0.167535520E+01_EB/)
THERMO_DATA(30)%A(1:7,2)  = &
   (/-0.241740882E+06_EB,-0.292153951E+03_EB, 0.102166848E+02_EB,-0.862364000E-04_EB, 0.189779000E-07_EB,&
     -0.216873000E-11_EB, 0.100215000E-15_EB/)
THERMO_DATA(30)%B(1:2,2)  = (/-0.507483444E+05_EB,-0.254686238E+02_EB/)
THERMO_DATA(30)%H_F       =   -404.500000_EB
THERMO_DATA(30)%SIGMA     =  5.127_EB ! R-132
THERMO_DATA(30)%EPSOK     =   337.70_EB
THERMO_DATA(30)%PR        =  0.72_EB ! R-132
 
THERMO_DATA(31)%FORMULA   = 'Be'
THERMO_DATA(31)%NAME      = 'BERYLLIUM ATOM'
THERMO_DATA(31)%POLY      = 'NASA9'
THERMO_DATA(31)%BANDS     = 3
THERMO_DATA(31)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(31)%A(1:7,1)  = &
   (/-0.411290000E-03_EB, 0.536497000E-05_EB, 0.249999997E+01_EB, 0.756920000E-10_EB,-0.109785000E-12_EB,&
      0.800211000E-16_EB,-0.230302000E-19_EB/)
THERMO_DATA(31)%B(1:2,1)  = (/ 0.382226459E+05_EB, 0.214617298E+01_EB/)
THERMO_DATA(31)%A(1:7,2)  = &
   (/-0.692628584E+06_EB, 0.246677301E+04_EB,-0.977661334E+00_EB, 0.245894000E-02_EB,-0.904795000E-06_EB,&
      0.158788000E-09_EB,-0.941560000E-14_EB/)
THERMO_DATA(31)%B(1:2,2)  = (/ 0.230021292E+05_EB, 0.262323475E+02_EB/)
THERMO_DATA(31)%A(1:7,3)  = &
   (/ 0.414583352E+09_EB,-0.225414752E+06_EB, 0.441143791E+02_EB,-0.302285400E-02_EB, 0.117835000E-06_EB,&
     -0.227339000E-11_EB, 0.119684000E-16_EB/)
THERMO_DATA(31)%B(1:2,3)  = (/ 0.186668632E+07_EB,-0.375233740E+03_EB/)
THERMO_DATA(31)%H_F       =    324.000000_EB
THERMO_DATA(31)%SIGMA     =  2.618_EB ! R-132
THERMO_DATA(31)%EPSOK     =  3603.00_EB
THERMO_DATA(31)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(32)%FORMULA   = 'Be'
THERMO_DATA(32)%NAME      = 'BERYLLIUM ATOMp'
THERMO_DATA(32)%POLY      = 'NASA9'
THERMO_DATA(32)%BANDS     = 3
THERMO_DATA(32)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(32)%A(1:7,1)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(32)%B(1:2,1)  = (/ 0.147152857E+06_EB, 0.283922870E+01_EB/)
THERMO_DATA(32)%A(1:7,2)  = &
   (/-0.947813598E+05_EB, 0.276832540E+03_EB, 0.219138841E+01_EB, 0.164882000E-03_EB,-0.428017000E-07_EB,&
      0.454235000E-11_EB,-0.627042000E-16_EB/)
THERMO_DATA(32)%B(1:2,2)  = (/ 0.145385099E+06_EB, 0.505550384E+01_EB/)
THERMO_DATA(32)%A(1:7,3)  = &
   (/-0.232126951E+09_EB, 0.152546452E+06_EB,-0.365109258E+02_EB, 0.481269200E-02_EB,-0.292888000E-06_EB,&
      0.889965000E-11_EB,-0.105568000E-15_EB/)
THERMO_DATA(32)%B(1:2,3)  = (/-0.105274432E+07_EB, 0.340217313E+03_EB/)
THERMO_DATA(32)%H_F       =   1229.701330_EB
THERMO_DATA(32)%SIGMA     =  2.618_EB ! R-132
THERMO_DATA(32)%EPSOK     =  3603.00_EB
THERMO_DATA(32)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(33)%FORMULA   = 'Be'
THERMO_DATA(33)%NAME      = 'BERYLLIUM ATOMpp'
THERMO_DATA(33)%POLY      = 'NASA9'
THERMO_DATA(33)%BANDS     = 3
THERMO_DATA(33)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(33)%A(1:7,1)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(33)%B(1:2,1)  = (/ 0.359227916E+06_EB, 0.214599020E+01_EB/)
THERMO_DATA(33)%A(1:7,2)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(33)%B(1:2,2)  = (/ 0.359227916E+06_EB, 0.214599020E+01_EB/)
THERMO_DATA(33)%A(1:7,3)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(33)%B(1:2,3)  = (/ 0.359227916E+06_EB, 0.214599020E+01_EB/)
THERMO_DATA(33)%H_F       =   2993.001530_EB
THERMO_DATA(33)%SIGMA     =  2.618_EB ! R-132
THERMO_DATA(33)%EPSOK     =  3603.00_EB
THERMO_DATA(33)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(34)%FORMULA   = 'Be2'
THERMO_DATA(34)%NAME      = 'BERYLLIUM'
THERMO_DATA(34)%POLY      = 'NASA9'
THERMO_DATA(34)%BANDS     = 2
THERMO_DATA(34)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(34)%A(1:7,1)  = &
   (/-0.158087381E+06_EB, 0.203556777E+04_EB,-0.369158063E+01_EB, 0.102881840E-01_EB,-0.960385000E-05_EB,&
      0.470752000E-08_EB,-0.937469000E-12_EB/)
THERMO_DATA(34)%B(1:2,1)  = (/ 0.652696837E+05_EB, 0.487932499E+02_EB/)
THERMO_DATA(34)%A(1:7,2)  = &
   (/ 0.101003448E+06_EB, 0.141420749E+03_EB, 0.229207018E+01_EB, 0.154333000E-03_EB,-0.580104000E-07_EB,&
      0.100313000E-10_EB,-0.568282000E-15_EB/)
THERMO_DATA(34)%B(1:2,2)  = (/ 0.755013973E+05_EB, 0.123875862E+02_EB/)
THERMO_DATA(34)%H_F       =    637.543318_EB
THERMO_DATA(34)%SIGMA     =  2.891_EB ! R-132
THERMO_DATA(34)%EPSOK     =     2.89_EB
THERMO_DATA(34)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(35)%FORMULA   = 'BeBr2'
THERMO_DATA(35)%NAME      = 'BERYLLIUM DIBROMIDE'
THERMO_DATA(35)%POLY      = 'NASA9'
THERMO_DATA(35)%BANDS     = 2
THERMO_DATA(35)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(35)%A(1:7,1)  = &
   (/-0.211869868E+05_EB, 0.209038261E+03_EB, 0.373117131E+01_EB, 0.111550160E-01_EB,-0.154282000E-04_EB,&
      0.105235000E-07_EB,-0.285001000E-11_EB/)
THERMO_DATA(35)%B(1:2,1)  = (/-0.309045628E+05_EB, 0.945891772E+01_EB/)
THERMO_DATA(35)%A(1:7,2)  = &
   (/-0.104133181E+06_EB,-0.154344309E+03_EB, 0.761446541E+01_EB,-0.455670000E-04_EB, 0.100318000E-07_EB,&
     -0.114688000E-11_EB, 0.530180000E-16_EB/)
THERMO_DATA(35)%B(1:2,2)  = (/-0.298452761E+05_EB,-0.114936098E+02_EB/)
THERMO_DATA(35)%H_F       =   -234.062499_EB
THERMO_DATA(35)%SIGMA     =  4.235_EB ! R-132
THERMO_DATA(35)%EPSOK     =   936.00_EB
THERMO_DATA(35)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(36)%FORMULA   = 'BeCl'
THERMO_DATA(36)%NAME      = 'BERYLLIUM MONOCHLORIDE'
THERMO_DATA(36)%POLY      = 'NASA9'
THERMO_DATA(36)%BANDS     = 2
THERMO_DATA(36)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(36)%A(1:7,1)  = &
   (/ 0.201613895E+05_EB,-0.141398898E+03_EB, 0.289822377E+01_EB, 0.606992600E-02_EB,-0.916204000E-05_EB,&
      0.661262000E-08_EB,-0.185913000E-11_EB/)
THERMO_DATA(36)%B(1:2,1)  = (/ 0.662669144E+04_EB, 0.790018105E+01_EB/)
THERMO_DATA(36)%A(1:7,2)  = &
   (/ 0.280884515E+06_EB,-0.110310012E+04_EB, 0.567118983E+01_EB,-0.544300000E-03_EB, 0.145904000E-06_EB,&
     -0.123097000E-10_EB, 0.990080000E-16_EB/)
THERMO_DATA(36)%B(1:2,2)  = (/ 0.122464980E+05_EB,-0.838237137E+01_EB/)
THERMO_DATA(36)%H_F       =     56.693107_EB
THERMO_DATA(36)%SIGMA     =  3.554_EB ! R-132
THERMO_DATA(36)%EPSOK     =  1067.00_EB
THERMO_DATA(36)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(37)%FORMULA   = 'BeCl2'
THERMO_DATA(37)%NAME      = 'BERYLLIUM CHLORIDE'
THERMO_DATA(37)%POLY      = 'NASA9'
THERMO_DATA(37)%BANDS     = 2
THERMO_DATA(37)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(37)%A(1:7,1)  = &
   (/-0.222995766E+05_EB, 0.152878167E+03_EB, 0.371499471E+01_EB, 0.106777660E-01_EB,-0.139777000E-04_EB,&
      0.906669000E-08_EB,-0.235029000E-11_EB/)
THERMO_DATA(37)%B(1:2,1)  = (/-0.459042823E+05_EB, 0.668255557E+01_EB/)
THERMO_DATA(37)%A(1:7,2)  = &
   (/-0.115408746E+06_EB,-0.248430005E+03_EB, 0.768567214E+01_EB,-0.744496000E-04_EB, 0.164948000E-07_EB,&
     -0.189600000E-11_EB, 0.880497000E-16_EB/)
THERMO_DATA(37)%B(1:2,2)  = (/-0.446874728E+05_EB,-0.150033741E+02_EB/)
THERMO_DATA(37)%H_F       =   -361.539140_EB
THERMO_DATA(37)%SIGMA     =  4.190_EB ! R-132
THERMO_DATA(37)%EPSOK     =   936.00_EB
THERMO_DATA(37)%PR        =  0.72_EB ! R-132
 
THERMO_DATA(38)%FORMULA   = 'BeF'
THERMO_DATA(38)%NAME      = 'BERYLLIUM MONOFLUORIDE'
THERMO_DATA(38)%POLY      = 'NASA9'
THERMO_DATA(38)%BANDS     = 2
THERMO_DATA(38)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(38)%A(1:7,1)  = &
   (/-0.466449723E+05_EB, 0.788717885E+03_EB,-0.146336320E+01_EB, 0.138179050E-01_EB,-0.159130000E-04_EB,&
      0.935293000E-08_EB,-0.222921000E-11_EB/)
THERMO_DATA(38)%B(1:2,1)  = (/-0.252262748E+05_EB, 0.319763430E+02_EB/)
THERMO_DATA(38)%A(1:7,2)  = &
   (/-0.185794154E+06_EB, 0.477608277E+02_EB, 0.426998602E+01_EB, 0.231067000E-03_EB,-0.665721000E-07_EB,&
      0.115215000E-10_EB,-0.633559000E-15_EB/)
THERMO_DATA(38)%B(1:2,2)  = (/-0.225795096E+05_EB,-0.218478727E+00_EB/)
THERMO_DATA(38)%H_F       =   -170.624795_EB
THERMO_DATA(38)%SIGMA     =  3.124_EB ! R-132
THERMO_DATA(38)%EPSOK     =   637.00_EB
THERMO_DATA(38)%PR        =  0.69_EB ! R-132
 
THERMO_DATA(39)%FORMULA   = 'BeF2'
THERMO_DATA(39)%NAME      = 'BERYLLIUM FLUORIDE'
THERMO_DATA(39)%POLY      = 'NASA9'
THERMO_DATA(39)%BANDS     = 2
THERMO_DATA(39)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(39)%A(1:7,1)  = &
   (/ 0.749027024E+04_EB,-0.287805310E+03_EB, 0.543471282E+01_EB, 0.390323300E-02_EB,-0.221487000E-05_EB,&
     -0.196581000E-09_EB, 0.404236000E-12_EB/)
THERMO_DATA(39)%B(1:2,1)  = (/-0.959161564E+05_EB,-0.561661692E+01_EB/)
THERMO_DATA(39)%A(1:7,2)  = &
   (/-0.648201807E+05_EB,-0.768455606E+03_EB, 0.806286084E+01_EB,-0.222750000E-03_EB, 0.489160000E-07_EB,&
     -0.558789000E-11_EB, 0.258341000E-15_EB/)
THERMO_DATA(39)%B(1:2,2)  = (/-0.939549549E+05_EB,-0.212566027E+02_EB/)
THERMO_DATA(39)%H_F       =   -796.588236_EB
THERMO_DATA(39)%SIGMA     =  3.452_EB ! R-132
THERMO_DATA(39)%EPSOK     =  1266.00_EB
THERMO_DATA(39)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(40)%FORMULA   = 'BeI2'
THERMO_DATA(40)%NAME      = 'BERYLLIUM DIIODIDE'
THERMO_DATA(40)%POLY      = 'NASA9'
THERMO_DATA(40)%BANDS     = 2
THERMO_DATA(40)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(40)%A(1:7,1)  = &
   (/ 0.359272618E+03_EB,-0.486605901E+02_EB, 0.524157118E+01_EB, 0.783030500E-02_EB,-0.116953000E-04_EB,&
      0.838958000E-08_EB,-0.235664000E-11_EB/)
THERMO_DATA(40)%B(1:2,1)  = (/-0.933322092E+04_EB, 0.289631828E+01_EB/)
THERMO_DATA(40)%A(1:7,2)  = &
   (/-0.939237284E+05_EB,-0.895921438E+02_EB, 0.756555479E+01_EB,-0.257773000E-04_EB, 0.561427000E-08_EB,&
     -0.635966000E-12_EB, 0.291708000E-16_EB/)
THERMO_DATA(40)%B(1:2,2)  = (/-0.981476862E+04_EB,-0.903204281E+01_EB/)
THERMO_DATA(40)%H_F       =    -64.759451_EB
THERMO_DATA(40)%SIGMA     =  4.955_EB ! R-132
THERMO_DATA(40)%EPSOK     =  1019.00_EB
THERMO_DATA(40)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(41)%FORMULA   = 'BF'
THERMO_DATA(41)%NAME      = 'BORON FLUORIDE'
THERMO_DATA(41)%POLY      = 'NASA9'
THERMO_DATA(41)%BANDS     = 2
THERMO_DATA(41)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(41)%A(1:7,1)  = &
   (/-0.523895473E+05_EB, 0.811847664E+03_EB,-0.114161490E+01_EB, 0.116124940E-01_EB,-0.117521000E-04_EB,&
      0.601923000E-08_EB,-0.123829000E-11_EB/)
THERMO_DATA(41)%B(1:2,1)  = (/-0.177454200E+05_EB, 0.300508629E+02_EB/)
THERMO_DATA(41)%A(1:7,2)  = &
   (/-0.374638978E+06_EB, 0.560449391E+03_EB, 0.360918611E+01_EB, 0.618722000E-03_EB,-0.177894000E-06_EB,&
      0.242660000E-10_EB,-0.939465000E-15_EB/)
THERMO_DATA(41)%B(1:2,2)  = (/-0.181917929E+05_EB, 0.371660929E+01_EB/)
THERMO_DATA(41)%H_F       =   -106.931884_EB
THERMO_DATA(41)%SIGMA     =  2.888_EB ! R-132
THERMO_DATA(41)%EPSOK     =   612.00_EB
THERMO_DATA(41)%PR        =  0.69_EB ! R-132
 
THERMO_DATA(42)%FORMULA   = 'BF2'
THERMO_DATA(42)%NAME      = 'BERYLLIUM FLUORIDEm'
THERMO_DATA(42)%POLY      = 'NASA9'
THERMO_DATA(42)%BANDS     = 2
THERMO_DATA(42)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(42)%A(1:7,1)  = &
   (/ 0.210976532E+05_EB, 0.143956460E+03_EB, 0.260464630E+00_EB, 0.181737380E-01_EB,-0.224157000E-04_EB,&
      0.136971000E-07_EB,-0.335595000E-11_EB/)
THERMO_DATA(42)%B(1:2,1)  = (/-0.897180178E+05_EB, 0.235169260E+02_EB/)
THERMO_DATA(42)%A(1:7,2)  = &
   (/-0.170992063E+06_EB,-0.615621979E+03_EB, 0.745887137E+01_EB,-0.183670000E-03_EB, 0.406436000E-07_EB,&
     -0.466770000E-11_EB, 0.216626000E-15_EB/)
THERMO_DATA(42)%B(1:2,2)  = (/-0.874140453E+05_EB,-0.162060466E+02_EB/)
THERMO_DATA(42)%H_F       =   -733.802963_EB
THERMO_DATA(42)%SIGMA     =  3.452_EB ! R-132
THERMO_DATA(42)%EPSOK     =  1266.00_EB
THERMO_DATA(42)%PR        =  0.68_EB ! R-132
 
THERMO_DATA(43)%FORMULA   = 'BF2'
THERMO_DATA(43)%NAME      = 'BERYLLIUM FLUORIDEp'
THERMO_DATA(43)%POLY      = 'NASA9'
THERMO_DATA(43)%BANDS     = 2
THERMO_DATA(43)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(43)%A(1:7,1)  = &
   (/-0.293835648E+05_EB, 0.295569860E+03_EB, 0.189427453E+01_EB, 0.128050830E-01_EB,-0.138876000E-04_EB,&
      0.762437000E-08_EB,-0.170634000E-11_EB/)
THERMO_DATA(43)%B(1:2,1)  = (/ 0.359899244E+05_EB, 0.138480331E+02_EB/)
THERMO_DATA(43)%A(1:7,2)  = &
   (/-0.176940997E+06_EB,-0.534368518E+03_EB, 0.772805291E+01_EB,-0.195862000E-05_EB,-0.241968000E-07_EB,&
      0.573253000E-11_EB,-0.321635000E-15_EB/)
THERMO_DATA(43)%B(1:2,2)  = (/ 0.390874505E+05_EB,-0.193656031E+02_EB/)
THERMO_DATA(43)%H_F       =    322.586400_EB
THERMO_DATA(43)%SIGMA     =  3.452_EB ! R-132
THERMO_DATA(43)%EPSOK     =  1266.00_EB
THERMO_DATA(43)%PR        =  0.68_EB ! R-132
 
THERMO_DATA(44)%FORMULA   = 'BF2'
THERMO_DATA(44)%NAME      = 'DIFLUOROBORYL RADICAL'
THERMO_DATA(44)%POLY      = 'NASA9'
THERMO_DATA(44)%BANDS     = 2
THERMO_DATA(44)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(44)%A(1:7,1)  = &
   (/-0.678765176E+05_EB, 0.108590354E+04_EB,-0.302332096E+01_EB, 0.232650370E-01_EB,-0.264144000E-04_EB,&
      0.151562000E-07_EB,-0.351856000E-11_EB/)
THERMO_DATA(44)%B(1:2,1)  = (/-0.664091825E+05_EB, 0.443196831E+02_EB/)
THERMO_DATA(44)%A(1:7,2)  = &
   (/-0.115309130E+06_EB,-0.810980012E+03_EB, 0.760270923E+01_EB,-0.240921000E-03_EB, 0.532847000E-07_EB,&
     -0.611880000E-11_EB, 0.283998000E-15_EB/)
THERMO_DATA(44)%B(1:2,2)  = (/-0.579622217E+05_EB,-0.165564405E+02_EB/)
THERMO_DATA(44)%H_F       =   -499.426904_EB
THERMO_DATA(44)%SIGMA     =  3.543_EB ! R-132
THERMO_DATA(44)%EPSOK     =  3999.00_EB
THERMO_DATA(44)%PR        =  0.71_EB ! R-132
 
THERMO_DATA(45)%FORMULA   = 'BF3'
THERMO_DATA(45)%NAME      = 'BORON FLUORIDE'
THERMO_DATA(45)%POLY      = 'NASA9'
THERMO_DATA(45)%BANDS     = 2
THERMO_DATA(45)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(45)%A(1:7,1)  = &
   (/ 0.346558400E+04_EB, 0.213319865E+02_EB, 0.164124519E+01_EB, 0.199375510E-01_EB,-0.215012000E-04_EB,&
      0.114567000E-07_EB,-0.244229000E-11_EB/)
THERMO_DATA(45)%B(1:2,1)  = (/-0.137945559E+06_EB, 0.162553354E+02_EB/)
THERMO_DATA(45)%A(1:7,2)  = &
   (/-0.181976701E+06_EB,-0.140534793E+04_EB, 0.110341226E+02_EB,-0.410459000E-03_EB, 0.903128000E-07_EB,&
     -0.103306000E-10_EB, 0.478055000E-15_EB/)
THERMO_DATA(45)%B(1:2,2)  = (/-0.132313686E+06_EB,-0.373838608E+02_EB/)
THERMO_DATA(45)%H_F       =  -1136.000000_EB
THERMO_DATA(45)%SIGMA     =  4.198_EB ! R-132
THERMO_DATA(45)%EPSOK     =   186.30_EB
THERMO_DATA(45)%PR        =  0.72_EB ! R-132
 
THERMO_DATA(46)%FORMULA   = 'BO'
THERMO_DATA(46)%NAME      = 'BORON MONOXIDE'
THERMO_DATA(46)%POLY      = 'NASA9'
THERMO_DATA(46)%BANDS     = 3
THERMO_DATA(46)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(46)%A(1:7,1)  = &
   (/-0.116621682E+05_EB, 0.921757939E+02_EB, 0.365549849E+01_EB,-0.311854300E-02_EB, 0.900833000E-05_EB,&
     -0.801779000E-08_EB, 0.247295000E-11_EB/)
THERMO_DATA(46)%B(1:2,1)  = (/ 0.873828478E+03_EB, 0.448284739E+01_EB/)
THERMO_DATA(46)%A(1:7,2)  = &
   (/ 0.178860059E+05_EB,-0.630901963E+03_EB, 0.457452840E+01_EB, 0.198800000E-03_EB,-0.970296000E-07_EB,&
      0.187085000E-10_EB,-0.103022000E-14_EB/)
THERMO_DATA(46)%B(1:2,2)  = (/ 0.484131109E+04_EB,-0.339889058E+01_EB/)
THERMO_DATA(46)%A(1:7,3)  = &
   (/-0.159269951E+09_EB, 0.121095563E+06_EB,-0.313682350E+02_EB, 0.511003800E-02_EB,-0.346102000E-06_EB,&
      0.114805000E-10_EB,-0.150490000E-15_EB/)
THERMO_DATA(46)%B(1:2,3)  = (/-0.934506576E+06_EB, 0.302612391E+03_EB/)
THERMO_DATA(46)%H_F       =     20.406404_EB
THERMO_DATA(46)%SIGMA     =  2.944_EB ! R-132
THERMO_DATA(46)%EPSOK     =   566.00_EB
THERMO_DATA(46)%PR        =  0.69_EB ! R-132
 
THERMO_DATA(47)%FORMULA   = 'BO'
THERMO_DATA(47)%NAME      = 'BORON MONOXIDEm'
THERMO_DATA(47)%POLY      = 'NASA9'
THERMO_DATA(47)%BANDS     = 2
THERMO_DATA(47)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(47)%A(1:7,1)  = &
   (/-0.824202321E+05_EB, 0.920363690E+03_EB,-0.230265998E+00_EB, 0.622990400E-02_EB,-0.315762000E-05_EB,&
      0.118458000E-09_EB, 0.281923000E-12_EB/)
THERMO_DATA(47)%B(1:2,1)  = (/-0.391114122E+05_EB, 0.259922684E+02_EB/)
THERMO_DATA(47)%A(1:7,2)  = &
   (/ 0.212280437E+06_EB,-0.126212469E+04_EB, 0.538316731E+01_EB,-0.318105000E-03_EB, 0.728899000E-07_EB,&
     -0.814171000E-11_EB, 0.371536000E-15_EB/)
THERMO_DATA(47)%B(1:2,2)  = (/-0.270689226E+05_EB,-0.977375367E+01_EB/)
THERMO_DATA(47)%H_F       =   -277.791076_EB
THERMO_DATA(47)%SIGMA     =  2.944_EB ! R-132
THERMO_DATA(47)%EPSOK     =   566.00_EB
THERMO_DATA(47)%PR        =  0.69_EB ! R-132
 
THERMO_DATA(48)%FORMULA   = 'Br'
THERMO_DATA(48)%NAME      = 'BROMINE ATOM'
THERMO_DATA(48)%POLY      = 'NASA9'
THERMO_DATA(48)%BANDS     = 3
THERMO_DATA(48)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(48)%A(1:7,1)  = &
   (/-0.370029391E+04_EB, 0.614521542E+02_EB, 0.209212072E+01_EB, 0.137681900E-02_EB,-0.244557000E-05_EB,&
      0.205098000E-08_EB,-0.514425000E-12_EB/)
THERMO_DATA(48)%B(1:2,1)  = (/ 0.124250865E+05_EB, 0.899616620E+01_EB/)
THERMO_DATA(48)%A(1:7,2)  = &
   (/-0.478971740E+07_EB, 0.169205200E+05_EB,-0.202408536E+02_EB, 0.139562040E-01_EB,-0.365623000E-05_EB,&
      0.448978000E-09_EB,-0.212251000E-13_EB/)
THERMO_DATA(48)%B(1:2,2)  = (/-0.920705496E+05_EB, 0.166169593E+03_EB/)
THERMO_DATA(48)%A(1:7,3)  = &
   (/-0.124024800E+09_EB, 0.703403473E+05_EB,-0.102308731E+02_EB, 0.137375600E-02_EB,-0.747647000E-07_EB,&
      0.216088000E-11_EB,-0.265905000E-16_EB/)
THERMO_DATA(48)%B(1:2,3)  = (/-0.556310107E+06_EB, 0.122665714E+03_EB/)
THERMO_DATA(48)%H_F       =    111.870000_EB
THERMO_DATA(48)%SIGMA     =  3.672_EB ! R-132
THERMO_DATA(48)%EPSOK     =   236.60_EB
THERMO_DATA(48)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(49)%FORMULA   = 'Br'
THERMO_DATA(49)%NAME      = 'BROMINE ATOMm'
THERMO_DATA(49)%POLY      = 'NASA9'
THERMO_DATA(49)%BANDS     = 3
THERMO_DATA(49)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(49)%A(1:7,1)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(49)%B(1:2,1)  = (/-0.270849274E+05_EB, 0.541955617E+01_EB/)
THERMO_DATA(49)%A(1:7,2)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(49)%B(1:2,2)  = (/-0.270849274E+05_EB, 0.541955617E+01_EB/)
THERMO_DATA(49)%A(1:7,3)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(49)%B(1:2,3)  = (/-0.270849274E+05_EB, 0.541955617E+01_EB/)
THERMO_DATA(49)%H_F       =   -219.000472_EB
THERMO_DATA(49)%SIGMA     =  3.672_EB ! R-132
THERMO_DATA(49)%EPSOK     =   236.60_EB
THERMO_DATA(49)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(50)%FORMULA   = 'Br'
THERMO_DATA(50)%NAME      = 'BROMINE ATOMp'
THERMO_DATA(50)%POLY      = 'NASA9'
THERMO_DATA(50)%BANDS     = 3
THERMO_DATA(50)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(50)%A(1:7,1)  = &
   (/ 0.398118742E+05_EB,-0.475158147E+03_EB, 0.473457898E+01_EB,-0.516932500E-02_EB, 0.590586000E-05_EB,&
     -0.288513000E-08_EB, 0.505489000E-12_EB/)
THERMO_DATA(50)%B(1:2,1)  = (/ 0.152905205E+06_EB,-0.576928322E+01_EB/)
THERMO_DATA(50)%A(1:7,2)  = &
   (/ 0.174114983E+07_EB,-0.545546567E+04_EB, 0.847066335E+01_EB,-0.268346600E-02_EB, 0.659045000E-06_EB,&
     -0.795377000E-10_EB, 0.373590000E-14_EB/)
THERMO_DATA(50)%B(1:2,2)  = (/ 0.185178164E+06_EB,-0.363790903E+02_EB/)
THERMO_DATA(50)%A(1:7,3)  = &
   (/-0.617490328E+08_EB, 0.364170416E+05_EB,-0.573974468E+01_EB, 0.106749700E-02_EB,-0.712769000E-07_EB,&
      0.215562000E-11_EB,-0.176948000E-16_EB/)
THERMO_DATA(50)%B(1:2,3)  = (/-0.139976750E+06_EB, 0.793157770E+02_EB/)
THERMO_DATA(50)%H_F       =   1257.927030_EB
THERMO_DATA(50)%SIGMA     =  3.672_EB ! R-132
THERMO_DATA(50)%EPSOK     =   236.60_EB
THERMO_DATA(50)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(51)%FORMULA   = 'Br2'
THERMO_DATA(51)%NAME      = 'BROMINE'
THERMO_DATA(51)%POLY      = 'NASA9'
THERMO_DATA(51)%BANDS     = 2
THERMO_DATA(51)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(51)%A(1:7,1)  = &
   (/ 0.749704754E+04_EB,-0.235088456E+03_EB, 0.549193432E+01_EB,-0.222757300E-02_EB, 0.293240000E-05_EB,&
     -0.195489000E-08_EB, 0.531231000E-12_EB/)
THERMO_DATA(51)%B(1:2,1)  = (/ 0.352147505E+04_EB,-0.196415157E+01_EB/)
THERMO_DATA(51)%A(1:7,2)  = &
   (/-0.431169857E+07_EB, 0.111126863E+05_EB,-0.555577561E+01_EB, 0.363051700E-02_EB,-0.275416000E-06_EB,&
     -0.621751000E-10_EB, 0.737534000E-14_EB/)
THERMO_DATA(51)%B(1:2,2)  = (/-0.703658416E+05_EB, 0.787847802E+02_EB/)
THERMO_DATA(51)%H_F       =     30.910000_EB
THERMO_DATA(51)%SIGMA     =  4.296_EB ! R-132
THERMO_DATA(51)%EPSOK     =   507.90_EB
THERMO_DATA(51)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(52)%FORMULA   = 'BrF'
THERMO_DATA(52)%NAME      = 'BROMINE MONOFLUORIDE'
THERMO_DATA(52)%POLY      = 'NASA9'
THERMO_DATA(52)%BANDS     = 2
THERMO_DATA(52)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(52)%A(1:7,1)  = &
   (/ 0.383614319E+05_EB,-0.518461197E+03_EB, 0.545832705E+01_EB,-0.565684000E-03_EB,-0.412131000E-06_EB,&
      0.785991000E-09_EB,-0.303616000E-12_EB/)
THERMO_DATA(52)%B(1:2,1)  = (/-0.559553991E+04_EB,-0.490112950E+01_EB/)
THERMO_DATA(52)%A(1:7,2)  = &
   (/ 0.377138847E+07_EB,-0.126749343E+05_EB, 0.208055593E+02_EB,-0.102635940E-01_EB, 0.330820000E-05_EB,&
     -0.490319000E-09_EB, 0.264828000E-13_EB/)
THERMO_DATA(52)%B(1:2,2)  = (/ 0.706260972E+05_EB,-0.113025360E+03_EB/)
THERMO_DATA(52)%H_F       =    -58.851445_EB
THERMO_DATA(52)%SIGMA     =  3.826_EB ! R-132
THERMO_DATA(52)%EPSOK     =   239.00_EB
THERMO_DATA(52)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(53)%FORMULA   = 'BrF3'
THERMO_DATA(53)%NAME      = 'BORON TRIFLUORIDE'
THERMO_DATA(53)%POLY      = 'NASA9'
THERMO_DATA(53)%BANDS     = 2
THERMO_DATA(53)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(53)%A(1:7,1)  = &
   (/ 0.111645513E+06_EB,-0.195942433E+04_EB, 0.152622013E+02_EB,-0.799936200E-02_EB, 0.698203000E-05_EB,&
     -0.324276000E-08_EB, 0.616475000E-12_EB/)
THERMO_DATA(53)%B(1:2,1)  = (/-0.234534155E+05_EB,-0.552263360E+02_EB/)
THERMO_DATA(53)%A(1:7,2)  = &
   (/-0.188653224E+06_EB,-0.824523297E+02_EB, 0.100618069E+02_EB,-0.247732000E-04_EB, 0.547858000E-08_EB,&
     -0.628266000E-12_EB, 0.291063000E-16_EB/)
THERMO_DATA(53)%B(1:2,2)  = (/-0.338680037E+05_EB,-0.229893737E+02_EB/)
THERMO_DATA(53)%H_F       =   -255.600000_EB
THERMO_DATA(53)%SIGMA     =  4.366_EB ! R-132
THERMO_DATA(53)%EPSOK     =   481.70_EB
THERMO_DATA(53)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(54)%FORMULA   = 'BrO'
THERMO_DATA(54)%NAME      = 'BORON MONOXIDE'
THERMO_DATA(54)%POLY      = 'NASA9'
THERMO_DATA(54)%BANDS     = 2
THERMO_DATA(54)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(54)%A(1:7,1)  = &
   (/ 0.145543112E+05_EB, 0.122515244E+03_EB,-0.305872867E+00_EB, 0.211730920E-01_EB,-0.349426000E-04_EB,&
      0.262264000E-07_EB,-0.750806000E-11_EB/)
THERMO_DATA(54)%B(1:2,1)  = (/ 0.138914993E+05_EB, 0.252786744E+02_EB/)
THERMO_DATA(54)%A(1:7,2)  = &
   (/-0.239261279E+07_EB, 0.693279313E+04_EB,-0.251318389E+01_EB, 0.344654500E-02_EB,-0.756954000E-06_EB,&
      0.651429000E-10_EB,-0.171577000E-14_EB/)
THERMO_DATA(54)%B(1:2,2)  = (/-0.308449906E+05_EB, 0.536104836E+02_EB/)
THERMO_DATA(54)%H_F       =    125.800000_EB
THERMO_DATA(54)%SIGMA     =  3.882_EB ! R-132
THERMO_DATA(54)%EPSOK     =   233.00_EB
THERMO_DATA(54)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(55)%FORMULA   = 'C'
THERMO_DATA(55)%NAME      = 'CARBON ATOM'
THERMO_DATA(55)%POLY      = 'NASA9'
THERMO_DATA(55)%BANDS     = 3
THERMO_DATA(55)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(55)%A(1:7,1)  = &
   (/ 0.649503147E+03_EB,-0.964901086E+00_EB, 0.250467548E+01_EB,-0.128145000E-04_EB, 0.198013000E-07_EB,&
     -0.160614000E-10_EB, 0.531448000E-14_EB/)
THERMO_DATA(55)%B(1:2,1)  = (/ 0.854576311E+05_EB, 0.474792429E+01_EB/)
THERMO_DATA(55)%A(1:7,2)  = &
   (/-0.128913647E+06_EB, 0.171952857E+03_EB, 0.264604439E+01_EB,-0.335307000E-03_EB, 0.174209000E-06_EB,&
     -0.290282000E-10_EB, 0.164218000E-14_EB/)
THERMO_DATA(55)%B(1:2,2)  = (/ 0.841059785E+05_EB, 0.413004742E+01_EB/)
THERMO_DATA(55)%A(1:7,3)  = &
   (/ 0.443252801E+09_EB,-0.288601841E+06_EB, 0.773710832E+02_EB,-0.971528200E-02_EB, 0.664960000E-06_EB,&
     -0.223008000E-10_EB, 0.289939000E-15_EB/)
THERMO_DATA(55)%B(1:2,3)  = (/ 0.235527344E+07_EB,-0.640512316E+03_EB/)
THERMO_DATA(55)%H_F       =    716.680000_EB
THERMO_DATA(55)%SIGMA     =  3.385_EB ! R-132
THERMO_DATA(55)%EPSOK     =    30.60_EB
THERMO_DATA(55)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(56)%FORMULA   = 'C'
THERMO_DATA(56)%NAME      = 'CARBON ATOMm'
THERMO_DATA(56)%POLY      = 'NASA9'
THERMO_DATA(56)%BANDS     = 3
THERMO_DATA(56)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(56)%A(1:7,1)  = &
   (/ 0.467129153E+01_EB,-0.198616900E-02_EB, 0.250000864E+01_EB,-0.197675000E-07_EB, 0.247895000E-10_EB,&
     -0.161066000E-13_EB, 0.423651000E-17_EB/)
THERMO_DATA(56)%B(1:2,1)  = (/ 0.700121855E+05_EB, 0.487957014E+01_EB/)
THERMO_DATA(56)%A(1:7,2)  = &
   (/ 0.425317572E+01_EB, 0.577819000E-03_EB, 0.249999942E+01_EB, 0.283614000E-09_EB,-0.732725000E-13_EB,&
      0.947851000E-17_EB,-0.483049000E-21_EB/)
THERMO_DATA(56)%B(1:2,2)  = (/ 0.700121717E+05_EB, 0.487962421E+01_EB/)
THERMO_DATA(56)%A(1:7,3)  = &
   (/ 0.122328901E+02_EB,-0.519618600E-02_EB, 0.250000134E+01_EB,-0.174350000E-09_EB, 0.120661000E-13_EB,&
     -0.425242000E-18_EB, 0.599233000E-23_EB/)
THERMO_DATA(56)%B(1:2,3)  = (/ 0.700122163E+05_EB, 0.487960842E+01_EB/)
THERMO_DATA(56)%H_F       =    588.314236_EB
THERMO_DATA(56)%SIGMA     =  3.385_EB ! R-132
THERMO_DATA(56)%EPSOK     =    30.60_EB
THERMO_DATA(56)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(57)%FORMULA   = 'C'
THERMO_DATA(57)%NAME      = 'CARBON ATOMp'
THERMO_DATA(57)%POLY      = 'NASA9'
THERMO_DATA(57)%BANDS     = 3
THERMO_DATA(57)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(57)%A(1:7,1)  = &
   (/ 0.225853593E+04_EB,-0.157457569E+01_EB, 0.250363773E+01_EB,-0.520288000E-05_EB, 0.451691000E-08_EB,&
     -0.218143000E-11_EB, 0.449505000E-15_EB/)
THERMO_DATA(57)%B(1:2,1)  = (/ 0.216895191E+06_EB, 0.434569950E+01_EB/)
THERMO_DATA(57)%A(1:7,2)  = &
   (/ 0.125511255E+05_EB,-0.341187467E+02_EB, 0.254338322E+01_EB,-0.280512000E-04_EB, 0.975164000E-08_EB,&
     -0.173686000E-11_EB, 0.124619000E-15_EB/)
THERMO_DATA(57)%B(1:2,2)  = (/ 0.217100179E+06_EB, 0.406391352E+01_EB/)
THERMO_DATA(57)%A(1:7,3)  = &
   (/ 0.561813532E+06_EB,-0.604705890E+04_EB, 0.588454147E+01_EB,-0.721189000E-03_EB, 0.682348000E-07_EB,&
     -0.259988000E-11_EB, 0.363387000E-16_EB/)
THERMO_DATA(57)%B(1:2,3)  = (/ 0.258137046E+06_EB,-0.228001976E+02_EB/)
THERMO_DATA(57)%H_F       =   1809.444480_EB
THERMO_DATA(57)%SIGMA     =  3.385_EB ! R-132
THERMO_DATA(57)%EPSOK     =    30.60_EB
THERMO_DATA(57)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(58)%FORMULA   = 'C'
THERMO_DATA(58)%NAME      = 'SOOT'
THERMO_DATA(58)%POLY      = 'NASA9'
THERMO_DATA(58)%BANDS     = 3
THERMO_DATA(58)%T(1:4)    = (/ 0.200000000E+03_EB, 0.600000000E+03_EB, 0.200000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(58)%A(1:7,1)  = &
   (/ 0.113285676E+06_EB,-0.198042168E+04_EB, 0.136538419E+02_EB,-0.463609644E-01_EB, 0.102133301E-03_EB,&
     -0.108289318E-06_EB, 0.447225886E-10_EB/)
THERMO_DATA(58)%B(1:2,1)  = (/ 0.894385976E+04_EB,-0.729582474E+02_EB/)
THERMO_DATA(58)%A(1:7,2)  = &
   (/ 0.335600441E+06_EB,-0.259652837E+04_EB, 0.694884191E+01_EB,-0.348483609E-02_EB, 0.184419245E-05_EB,&
     -0.505520596E-09_EB, 0.575063901E-13_EB/)
THERMO_DATA(58)%B(1:2,2)  = (/ 0.139841246E+05_EB,-0.447718304E+02_EB/)
THERMO_DATA(58)%A(1:7,3)  = &
   (/ 0.202310511E+06_EB,-0.113823591E+04_EB, 0.370027950E+01_EB,-0.183380773E-03_EB, 0.634368325E-07_EB,&
     -0.706858948E-11_EB, 0.333543598E-15_EB/)
THERMO_DATA(58)%B(1:2,3)  = (/ 0.584813485E+04_EB,-0.235092528E+02_EB/)
THERMO_DATA(58)%H_F       =      0.000000_EB
THERMO_DATA(58)%SIGMA     =  3.798_EB ! R-132
THERMO_DATA(58)%EPSOK     =    71.40_EB
THERMO_DATA(58)%PR        =  0.71_EB ! Assume N2
THERMO_DATA(58)%RADCAL_ID = 'SOOT'
 
THERMO_DATA(59)%FORMULA   = 'C10H16'
THERMO_DATA(59)%NAME      = 'JP-10'
THERMO_DATA(59)%POLY      = 'NASA9'
THERMO_DATA(59)%BANDS     = 2
THERMO_DATA(59)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(59)%A(1:7,1)  = &
   (/-0.731076944E+06_EB, 0.152176424E+05_EB,-0.113931264E+03_EB, 0.428150162E+00_EB,-0.521874000E-03_EB,&
      0.335723000E-06_EB,-0.880575000E-10_EB/)
THERMO_DATA(59)%B(1:2,1)  = (/-0.806748212E+05_EB, 0.632014861E+03_EB/)
THERMO_DATA(59)%A(1:7,2)  = &
   (/ 0.122032959E+08_EB,-0.579484624E+05_EB, 0.109228116E+03_EB,-0.108240620E-01_EB, 0.203499000E-05_EB,&
     -0.205206000E-09_EB, 0.857576000E-14_EB/)
THERMO_DATA(59)%B(1:2,2)  = (/ 0.325733405E+06_EB,-0.709235076E+03_EB/)
THERMO_DATA(59)%H_F       =    -86.855900_EB
THERMO_DATA(59)%SIGMA     =  4.892_EB ! n-octane
THERMO_DATA(59)%EPSOK     =   231.60_EB
THERMO_DATA(59)%PR        =  0.71_EB ! Assume N2
THERMO_DATA(59)%RADCAL_ID = 'N-HEPTANE'
 
THERMO_DATA(60)%FORMULA   = 'C10H22'
THERMO_DATA(60)%NAME      = 'N-DECANE'
THERMO_DATA(60)%POLY      = 'WEBBOOK'
THERMO_DATA(60)%BANDS     = 1
THERMO_DATA(60)%T(1:2)    = (/ 0.200000000E+03_EB, 0.150000000E+04_EB/)
THERMO_DATA(60)%A(1:5,1)  = &
   (/ 0.267016000E+03_EB, 0.477349000E+01_EB, 0.414125000E-03_EB,-0.269748000E-05_EB, 0.997970000E-09_EB/)
THERMO_DATA(60)%H_F       =   -249.700000_EB
THERMO_DATA(60)%SIGMA     =  4.892_EB ! n-octane
THERMO_DATA(60)%EPSOK     =   231.60_EB
THERMO_DATA(60)%PR        =  0.71_EB ! Assume N2
THERMO_DATA(60)%RADCAL_ID = 'N-HEPTANE'
THERMO_DATA(60)%LIQUID    = .TRUE.
THERMO_DATA(60)%BANDS_L   = 2
THERMO_DATA(60)%T_L(1:3)  = (/247._EB,314._EB,462.4_EB/)
THERMO_DATA(60)%A_L(3:6,1)= (/83.3283_EB,-51.0491_EB,17.0127_EB,-1.6806_EB/)
THERMO_DATA(60)%A_L(3:6,2)= (/35.5264_EB,-5.37839_EB,2.46788_EB,-0.136562_EB/)
THERMO_DATA(60)%T_UNIT    = 0.01_EB
THERMO_DATA(60)%CP_UNIT   = 8314.472_EB/142.2817_EB !J/kg/K
THERMO_DATA(60)%H_V       = 360552.3916 !J/kg
THERMO_DATA(60)%T_REF     = 447.2 !K
THERMO_DATA(60)%T_MELT    = 243.3 !K
THERMO_DATA(60)%T_BOIL    = 447.2 !K
THERMO_DATA(60)%DENSITY   = 730._EB !kg/m^3
THERMO_DATA(60)%FUEL      = .TRUE.
THERMO_DATA(60)%K         = 0.147_EB !W/m/K
THERMO_DATA(60)%MU        = 0.000859_EB !N.s/m^2
THERMO_DATA(60)%BETA      = 0.00108_EB !1/K

THERMO_DATA(61)%FORMULA   = 'C10H8'
THERMO_DATA(61)%NAME      = 'NAPTHALENE'
THERMO_DATA(61)%POLY      = 'NASA9'
THERMO_DATA(61)%BANDS     = 2
THERMO_DATA(61)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(61)%A(1:7,1)  = &
   (/-0.260284532E+06_EB, 0.623740957E+04_EB,-0.522609504E+02_EB, 0.239769278E+00_EB,-0.291224000E-03_EB,&
      0.185494000E-06_EB,-0.481662000E-10_EB/)
THERMO_DATA(61)%B(1:2,1)  = (/-0.111470088E+05_EB, 0.297213952E+03_EB/)
THERMO_DATA(61)%A(1:7,2)  = &
   (/ 0.590617211E+07_EB,-0.316322924E+05_EB, 0.703034203E+02_EB,-0.601886600E-02_EB, 0.114205000E-05_EB,&
     -0.116161000E-09_EB, 0.489284000E-14_EB/)
THERMO_DATA(61)%B(1:2,2)  = (/ 0.196256705E+06_EB,-0.434784895E+03_EB/)
THERMO_DATA(61)%H_F       =    150.580000_EB
THERMO_DATA(61)%SIGMA     =  5.698_EB ! Benzene
THERMO_DATA(61)%EPSOK     =   480.00_EB
THERMO_DATA(61)%PR        =  0.71_EB ! Assume N2
THERMO_DATA(61)%RADCAL_ID = 'TOLUENE'
 
THERMO_DATA(62)%FORMULA   = 'C12H23'
THERMO_DATA(62)%NAME      = 'JET-A'
THERMO_DATA(62)%POLY      = 'NASA9'
THERMO_DATA(62)%BANDS     = 2
THERMO_DATA(62)%T(1:3)    = (/ 0.273150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(62)%A(1:7,1)  = &
   (/-0.606869559E+06_EB, 0.832825959E+04_EB,-0.431232127E+02_EB, 0.257239045E+00_EB,-0.262932000E-03_EB,&
      0.164499000E-06_EB,-0.464534000E-10_EB/)
THERMO_DATA(62)%B(1:2,1)  = (/-0.760696276E+05_EB, 0.279430594E+03_EB/)
THERMO_DATA(62)%A(1:7,2)  = &
   (/ 0.185835610E+08_EB,-0.767721989E+05_EB, 0.141982613E+03_EB,-0.743752500E-02_EB, 0.585620000E-06_EB,&
      0.122396000E-10_EB,-0.314920000E-14_EB/)
THERMO_DATA(62)%B(1:2,2)  = (/ 0.422198952E+06_EB,-0.898606104E+03_EB/)
THERMO_DATA(62)%H_F       =   -249.657000_EB
THERMO_DATA(62)%SIGMA     =  4.892_EB ! n-octane
THERMO_DATA(62)%EPSOK     =   231.60_EB
THERMO_DATA(62)%PR        =  0.71_EB ! Assume N2
THERMO_DATA(62)%RADCAL_ID = 'N-HEPTANE'
 
THERMO_DATA(63)%FORMULA   = 'C12H26'
THERMO_DATA(63)%NAME      = 'DODECANE'
THERMO_DATA(63)%POLY      = 'MOSKVA'
THERMO_DATA(63)%BANDS     = 1
THERMO_DATA(63)%T(1:2)    = (/ 0.288000000E+03_EB, 0.150000000E+04_EB/)
THERMO_DATA(63)%A(1:4,1)  = (/-0.785919600E+01_EB, 0.671480800E-01_EB,-0.795428300E-27_EB, 0.162201100E+01_EB/)
THERMO_DATA(63)%H_F       =   -187.800000_EB
THERMO_DATA(63)%SIGMA     =  4.892_EB ! n-octane
THERMO_DATA(63)%EPSOK     =   231.60_EB
THERMO_DATA(63)%PR        =  0.71_EB ! Assume N2
THERMO_DATA(63)%RADCAL_ID = 'N-HEPTANE'
THERMO_DATA(63)%LIQUID    = .TRUE.
THERMO_DATA(63)%T_L(1:2)  = (/270._EB,480._EB/)
THERMO_DATA(63)%A_L(3:5,1)= (/2.12506E+03_EB,-2.17962E+00_EB,8.26087E-03_EB/)
THERMO_DATA(63)%H_V       = 201955.2082_EB !J/kg
THERMO_DATA(63)%T_REF     = 489.2_EB !K
THERMO_DATA(63)%T_MELT    = 263.5_EB !K
THERMO_DATA(63)%T_BOIL    = 489.2_EB !K
THERMO_DATA(63)%DENSITY   = 750._EB !kg/m^3
THERMO_DATA(63)%FUEL      = .TRUE.
THERMO_DATA(63)%K         = 0.140_EB !W/m/K
THERMO_DATA(63)%MU        = 0.00134_EB !N.s/m^2
THERMO_DATA(63)%BETA      = 0.00114_EB !1/K (Octane)

THERMO_DATA(64)%FORMULA   = 'C2'
THERMO_DATA(64)%NAME      = 'DICARBON'
THERMO_DATA(64)%POLY      = 'NASA9'
THERMO_DATA(64)%BANDS     = 3
THERMO_DATA(64)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(64)%A(1:7,1)  = &
   (/ 0.555963451E+06_EB,-0.998012644E+04_EB, 0.668162037E+02_EB,-0.174343272E+00_EB, 0.244852000E-03_EB,&
     -0.170347000E-06_EB, 0.468453000E-10_EB/)
THERMO_DATA(64)%B(1:2,1)  = (/ 0.144586963E+06_EB,-0.344822970E+03_EB/)
THERMO_DATA(64)%A(1:7,2)  = &
   (/-0.968926793E+06_EB, 0.356109299E+04_EB,-0.506413893E+00_EB, 0.294515500E-02_EB,-0.713944000E-06_EB,&
      0.867066000E-10_EB,-0.407691000E-14_EB/)
THERMO_DATA(64)%B(1:2,2)  = (/ 0.768179683E+05_EB, 0.333998524E+02_EB/)
THERMO_DATA(64)%A(1:7,3)  = &
   (/ 0.631514592E+07_EB, 0.136542066E+05_EB,-0.399690367E+01_EB, 0.193756100E-02_EB,-0.158445000E-06_EB,&
      0.552086000E-11_EB,-0.725374000E-16_EB/)
THERMO_DATA(64)%B(1:2,3)  = (/ 0.938702499E+04_EB, 0.661432992E+02_EB/)
THERMO_DATA(64)%H_F       =    830.457322_EB
THERMO_DATA(64)%SIGMA     =  3.913_EB ! R-132
THERMO_DATA(64)%EPSOK     =    78.80_EB
THERMO_DATA(64)%PR        =  0.71_EB ! R-132
 
THERMO_DATA(65)%FORMULA   = 'C2'
THERMO_DATA(65)%NAME      = 'DICARBONm'
THERMO_DATA(65)%POLY      = 'NASA9'
THERMO_DATA(65)%BANDS     = 2
THERMO_DATA(65)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(65)%A(1:7,1)  = &
   (/-0.118192866E+06_EB, 0.143818971E+04_EB,-0.319613135E+01_EB, 0.146554820E-01_EB,-0.154554000E-04_EB,&
      0.906124000E-08_EB,-0.213596000E-11_EB/)
THERMO_DATA(65)%B(1:2,1)  = (/ 0.496531779E+05_EB, 0.422560888E+02_EB/)
THERMO_DATA(65)%A(1:7,2)  = &
   (/ 0.447813625E+07_EB,-0.115414571E+05_EB, 0.131014350E+02_EB,-0.186270100E-02_EB, 0.400693000E-07_EB,&
      0.371021000E-10_EB,-0.333727000E-14_EB/)
THERMO_DATA(65)%B(1:2,2)  = (/ 0.132535617E+06_EB,-0.697596440E+02_EB/)
THERMO_DATA(65)%H_F       =    480.766904_EB
THERMO_DATA(65)%SIGMA     =  3.913_EB ! R-132
THERMO_DATA(65)%EPSOK     =    78.80_EB
THERMO_DATA(65)%PR        =  0.71_EB ! R-132
 
THERMO_DATA(66)%FORMULA   = 'C2'
THERMO_DATA(66)%NAME      = 'DICARBONp'
THERMO_DATA(66)%POLY      = 'NASA9'
THERMO_DATA(66)%BANDS     = 3
THERMO_DATA(66)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(66)%A(1:7,1)  = &
   (/-0.991342384E+05_EB, 0.134717061E+04_EB,-0.347675316E+01_EB, 0.167642940E-01_EB,-0.186591000E-04_EB,&
      0.109113000E-07_EB,-0.243491000E-11_EB/)
THERMO_DATA(66)%B(1:2,1)  = (/ 0.233545480E+06_EB, 0.440664462E+02_EB/)
THERMO_DATA(66)%A(1:7,2)  = &
   (/ 0.383629281E+07_EB,-0.624206245E+04_EB, 0.277924564E+01_EB, 0.606586600E-02_EB,-0.245280000E-05_EB,&
      0.388294000E-09_EB,-0.219064000E-13_EB/)
THERMO_DATA(66)%B(1:2,2)  = (/ 0.285744755E+06_EB, 0.729738349E+00_EB/)
THERMO_DATA(66)%A(1:7,3)  = &
   (/ 0.499268980E+08_EB,-0.201730912E+05_EB, 0.634222754E+01_EB, 0.636992000E-03_EB,-0.103676000E-06_EB,&
      0.494327000E-11_EB,-0.798880000E-16_EB/)
THERMO_DATA(66)%B(1:2,3)  = (/ 0.412085761E+06_EB,-0.211296717E+02_EB/)
THERMO_DATA(66)%H_F       =   2004.775530_EB
THERMO_DATA(66)%SIGMA     =  3.913_EB ! R-132
THERMO_DATA(66)%EPSOK     =    78.80_EB
THERMO_DATA(66)%PR        =  0.71_EB ! R-132
 
THERMO_DATA(67)%FORMULA   = 'C2H'
THERMO_DATA(67)%NAME      = 'ETHYNYL RADICAL'
THERMO_DATA(67)%POLY      = 'NASA9'
THERMO_DATA(67)%BANDS     = 2
THERMO_DATA(67)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(67)%A(1:7,1)  = &
   (/ 0.134366949E+05_EB,-0.506797072E+03_EB, 0.777210741E+01_EB,-0.651234000E-02_EB, 0.103012000E-04_EB,&
     -0.588015000E-08_EB, 0.122690000E-11_EB/)
THERMO_DATA(67)%B(1:2,1)  = (/ 0.689226999E+05_EB,-0.187188163E+02_EB/)
THERMO_DATA(67)%A(1:7,2)  = &
   (/ 0.392233457E+07_EB,-0.120475170E+05_EB, 0.175617292E+02_EB,-0.365544300E-02_EB, 0.698769000E-06_EB,&
     -0.682516000E-10_EB, 0.271926000E-14_EB/)
THERMO_DATA(67)%B(1:2,2)  = (/ 0.143326663E+06_EB,-0.956163438E+02_EB/)
THERMO_DATA(67)%H_F       =    566.200482_EB
THERMO_DATA(67)%SIGMA     =  4.100_EB ! GRM3
THERMO_DATA(67)%EPSOK     =   209.00_EB
THERMO_DATA(67)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(68)%FORMULA   = 'C2H2'
THERMO_DATA(68)%NAME      = 'ACETYLENE'
THERMO_DATA(68)%POLY      = 'NASA9'
THERMO_DATA(68)%BANDS     = 2
THERMO_DATA(68)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(68)%A(1:7,1)  = &
   (/ 0.159811209E+06_EB,-0.221664412E+04_EB, 0.126570781E+02_EB,-0.797965100E-02_EB, 0.805499000E-05_EB,&
     -0.243331000E-08_EB,-0.752923000E-13_EB/)
THERMO_DATA(68)%B(1:2,1)  = (/ 0.371261906E+05_EB,-0.524433890E+02_EB/)
THERMO_DATA(68)%A(1:7,2)  = &
   (/ 0.171384741E+07_EB,-0.592910666E+04_EB, 0.123612794E+02_EB, 0.131419000E-03_EB,-0.136276000E-06_EB,&
      0.271266000E-10_EB,-0.130207000E-14_EB/)
THERMO_DATA(68)%B(1:2,2)  = (/ 0.626657897E+05_EB,-0.581896059E+02_EB/)
THERMO_DATA(68)%H_F       =    228.200000_EB
THERMO_DATA(68)%SIGMA     =  4.033_EB ! R-132
THERMO_DATA(68)%EPSOK     =   231.80_EB
THERMO_DATA(68)%PR        =  0.78_EB ! Airliquide
THERMO_DATA(68)%RADCAL_ID = 'ETHELYNE'
 
THERMO_DATA(69)%FORMULA   = 'C2H3'
THERMO_DATA(69)%NAME      = 'VINYL RADICAL'
THERMO_DATA(69)%POLY      = 'NASA9'
THERMO_DATA(69)%BANDS     = 2
THERMO_DATA(69)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(69)%A(1:7,1)  = &
   (/-0.334789687E+05_EB, 0.106410410E+04_EB,-0.640385706E+01_EB, 0.393451550E-01_EB,-0.476005000E-04_EB,&
      0.317007000E-07_EB,-0.863341000E-11_EB/)
THERMO_DATA(69)%B(1:2,1)  = (/ 0.303912265E+05_EB, 0.580922618E+02_EB/)
THERMO_DATA(69)%A(1:7,2)  = &
   (/ 0.271808009E+07_EB,-0.103095683E+05_EB, 0.183657981E+02_EB,-0.158013100E-02_EB, 0.268059000E-06_EB,&
     -0.243900000E-10_EB, 0.920910000E-15_EB/)
THERMO_DATA(69)%B(1:2,2)  = (/ 0.976505559E+05_EB,-0.976008686E+02_EB/)
THERMO_DATA(69)%H_F       =    299.686817_EB
THERMO_DATA(69)%SIGMA     =  4.100_EB ! GRM3
THERMO_DATA(69)%EPSOK     =   209.00_EB
THERMO_DATA(69)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(70)%FORMULA   = 'C2H3CHO'
THERMO_DATA(70)%NAME      = 'ACROLEIN'
THERMO_DATA(70)%POLY      = 'NASA7'
THERMO_DATA(70)%BANDS     = 2
THERMO_DATA(70)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.300000000E+04_EB/)
THERMO_DATA(70)%A(1:5,1)  = &
   (/ 0.115295840E+01_EB, 0.280402140E-01_EB,-0.150721530E-04_EB, 0.159058420E-08_EB, 0.849303710E-12_EB/)
THERMO_DATA(70)%B(1:2,1)  = (/-0.104176940E+05_EB, 0.214532790E+02_EB/)
THERMO_DATA(70)%A(1:5,2)  = &
   (/ 0.483531800E+01_EB, 0.197726010E-01_EB,-0.104266280E-04_EB, 0.265258030E-08_EB,-0.262782070E-12_EB/)
THERMO_DATA(70)%B(1:2,2)  = (/-0.115578370E+05_EB, 0.188531440E+01_EB/)
THERMO_DATA(70)%H_F       =  -74.47486301_EB
THERMO_DATA(70)%SIGMA     =  5.176_EB ! GRM3
THERMO_DATA(70)%EPSOK     =   357.00_EB
THERMO_DATA(70)%PR        =  0.71_EB ! Assume N2
THERMO_DATA(70)%RADCAL_ID = 'MMA'
THERMO_DATA(70)%LIQUID    = .TRUE.
THERMO_DATA(70)%T_L(1:2)  = (/290._EB,340._EB/)
THERMO_DATA(70)%A_L(3:4,1)= (/762._EB,4.17143_EB/)
THERMO_DATA(70)%H_V       = 663470.8757_EB !J/kg
THERMO_DATA(70)%T_REF     = 186.15_EB !K
THERMO_DATA(70)%T_MELT    = 186.15_EB !K
THERMO_DATA(70)%T_BOIL    = 330._EB !K
THERMO_DATA(70)%DENSITY   = 846._EB !kg/m^3

THERMO_DATA(71)%FORMULA   = 'C2H4'
THERMO_DATA(71)%NAME      = 'ETHYLENE'
THERMO_DATA(71)%POLY      = 'NASA9'
THERMO_DATA(71)%BANDS     = 2
THERMO_DATA(71)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(71)%A(1:7,1)  = &
   (/-0.116360584E+06_EB, 0.255485151E+04_EB,-0.160974643E+02_EB, 0.662577930E-01_EB,-0.788508000E-04_EB,&
      0.512522000E-07_EB,-0.137034000E-10_EB/)
THERMO_DATA(71)%B(1:2,1)  = (/-0.617619107E+04_EB, 0.109333834E+03_EB/)
THERMO_DATA(71)%A(1:7,2)  = &
   (/ 0.340876367E+07_EB,-0.137484790E+05_EB, 0.236589807E+02_EB,-0.242380400E-02_EB, 0.443140000E-06_EB,&
     -0.435268000E-10_EB, 0.177541000E-14_EB/)
THERMO_DATA(71)%B(1:2,2)  = (/ 0.882042938E+05_EB,-0.137127811E+03_EB/)
THERMO_DATA(71)%H_F       =     52.500000_EB
THERMO_DATA(71)%SIGMA     =  4.163_EB ! R-132
THERMO_DATA(71)%EPSOK     =   224.70_EB
THERMO_DATA(71)%PR        =  0.83_EB ! airliquide.com
THERMO_DATA(71)%RADCAL_ID = 'ETHELYNE'
THERMO_DATA(71)%LIQUID    = .TRUE.
THERMO_DATA(71)%T_L(1:2)  = (/110._EB,170._EB/)
THERMO_DATA(71)%A_L(3:6,1)= (/2.99329E+03_EB,-7.40000E+00_EB,2.28571E-02_EB,-8.88178E-16_EB/)
THERMO_DATA(71)%H_V       = 871622.6364_EB !J/kg
THERMO_DATA(71)%T_REF     = 103.8_EB !K
THERMO_DATA(71)%T_MELT    = 103.8_EB !K
THERMO_DATA(71)%T_BOIL    = 169.38_EB !K
THERMO_DATA(71)%DENSITY   = 569._EB !kg/m^3
THERMO_DATA(71)%FUEL      = .TRUE.
THERMO_DATA(71)%MU        = 0.000038_EB  !N.s/m^2
THERMO_DATA(71)%K         = 0.2568_EB !W/m/K
THERMO_DATA(71)%BETA      = 0.00114_EB !1/K (butane)

THERMO_DATA(72)%FORMULA   = 'C2H5'
THERMO_DATA(72)%NAME      = 'ETHYL RADICAL'
THERMO_DATA(72)%POLY      = 'NASA9'
THERMO_DATA(72)%BANDS     = 2
THERMO_DATA(72)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(72)%A(1:7,1)  = &
   (/-0.141131255E+06_EB, 0.271428509E+04_EB,-0.153497773E+02_EB, 0.645167260E-01_EB,-0.725914000E-04_EB,&
      0.459912000E-07_EB,-0.121837000E-10_EB/)
THERMO_DATA(72)%B(1:2,1)  = (/ 0.598141884E+03_EB, 0.109096652E+03_EB/)
THERMO_DATA(72)%A(1:7,2)  = &
   (/ 0.416922040E+07_EB,-0.166298214E+05_EB, 0.279544213E+02_EB,-0.305171600E-02_EB, 0.568516000E-06_EB,&
     -0.568286000E-10_EB, 0.235565000E-14_EB/)
THERMO_DATA(72)%B(1:2,2)  = (/ 0.113701009E+06_EB,-0.163935800E+03_EB/)
THERMO_DATA(72)%H_F       =    118.658240_EB
THERMO_DATA(72)%SIGMA     =  4.302_EB ! GRM3
THERMO_DATA(72)%EPSOK     =   252.30_EB
THERMO_DATA(72)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(73)%FORMULA   = 'C2H5OH'
THERMO_DATA(73)%NAME      = 'ETHANOL'
THERMO_DATA(73)%POLY      = 'NASA9'
THERMO_DATA(73)%BANDS     = 2
THERMO_DATA(73)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(73)%A(1:7,1)  = &
   (/-0.234279139E+06_EB, 0.447918055E+04_EB,-0.274481730E+02_EB, 0.108867916E+00_EB,-0.130531000E-03_EB,&
      0.843735000E-07_EB,-0.223456000E-10_EB/)
THERMO_DATA(73)%B(1:2,1)  = (/-0.502222900E+05_EB, 0.176482921E+03_EB/)
THERMO_DATA(73)%A(1:7,2)  = &
   (/ 0.469481765E+07_EB,-0.192979821E+05_EB, 0.344758404E+02_EB,-0.323616600E-02_EB, 0.578495000E-06_EB,&
     -0.556460000E-10_EB, 0.222623000E-14_EB/)
THERMO_DATA(73)%B(1:2,2)  = (/ 0.860162271E+05_EB,-0.203480173E+03_EB/)
THERMO_DATA(73)%H_F       =   -234.950000_EB
THERMO_DATA(73)%SIGMA     =  4.530_EB ! R-132
THERMO_DATA(73)%EPSOK     =   362.60_EB
THERMO_DATA(73)%PR        =  0.84_EB ! Faghri
THERMO_DATA(73)%RADCAL_ID = 'METHANOL'
THERMO_DATA(73)%LIQUID    = .TRUE.
THERMO_DATA(73)%T_L(1:2)  = (/159._EB,390._EB/)
THERMO_DATA(73)%A_L(1:7,1)= (/450111.594_EB,-10208.2899_EB,101.426678_EB,-0.387467261_EB,0.000712139261_EB,&
                              -0.000000185707145_EB,0.000000000203762257_EB/)
THERMO_DATA(73)%CP_UNIT   = 8314.472_EB / 46.06844_EB !J/kg/K
THERMO_DATA(73)%H_V       = 1075147.11328518_EB !J/kg
THERMO_DATA(73)%T_REF     = 159.0_EB !K
THERMO_DATA(73)%T_MELT    = 159.0_EB !K
THERMO_DATA(73)%T_BOIL    = 351.5_EB !K
THERMO_DATA(73)%DENSITY   = 790._EB !kg/m^3
THERMO_DATA(73)%FUEL      = .TRUE.
THERMO_DATA(73)%MU        = 0.001095_EB  !N.s/m^2
THERMO_DATA(73)%K         = 0.203_EB !W/m/K
THERMO_DATA(73)%BETA      = 0.00118_EB !1/K

THERMO_DATA(74)%FORMULA   = 'C2H6'
THERMO_DATA(74)%NAME      = 'ETHANE'
THERMO_DATA(74)%POLY      = 'NASA9'
THERMO_DATA(74)%BANDS     = 2
THERMO_DATA(74)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(74)%A(1:7,1)  = &
   (/-0.186204416E+06_EB, 0.340619186E+04_EB,-0.195170509E+02_EB, 0.756583560E-01_EB,-0.820417000E-04_EB,&
      0.506114000E-07_EB,-0.131928000E-10_EB/)
THERMO_DATA(74)%B(1:2,1)  = (/-0.270293289E+05_EB, 0.129814050E+03_EB/)
THERMO_DATA(74)%A(1:7,2)  = &
   (/ 0.502578213E+07_EB,-0.203302240E+05_EB, 0.332255293E+02_EB,-0.383670300E-02_EB, 0.723841000E-06_EB,&
     -0.731918000E-10_EB, 0.306547000E-14_EB/)
THERMO_DATA(74)%B(1:2,2)  = (/ 0.111596395E+06_EB,-0.203941058E+03_EB/)
THERMO_DATA(74)%H_F       =    -83.851544_EB
THERMO_DATA(74)%SIGMA     =  4.443_EB ! R-132
THERMO_DATA(74)%EPSOK     =   215.70_EB
THERMO_DATA(74)%PR        =  0.84_EB ! Faghri
THERMO_DATA(74)%RADCAL_ID = 'ETHANE'
THERMO_DATA(74)%LIQUID    = .TRUE.
THERMO_DATA(74)%T_L(1:2)  = (/100._EB,240._EB/)
THERMO_DATA(74)%A_L(3:6,1)= (/2.24672E+03_EB,1.55254E+00_EB,-2.27232E-02_EB,1.08053E-04_EB/)
THERMO_DATA(74)%H_V = 577854.0716_EB !J/kg
THERMO_DATA(74)%T_REF = 100._EB !K
THERMO_DATA(74)%T_MELT = 100._EB !K
THERMO_DATA(74)%T_BOIL = 184.32_EB !K
THERMO_DATA(74)%DENSITY = 546._EB !kg/m^3
THERMO_DATA(74)%FUEL = .TRUE.
THERMO_DATA(74)%K = 0.167_EB !W/m/K
THERMO_DATA(74)%MU = 0.000163_EB !N.s/m^2
THERMO_DATA(74)%BETA = 0.00114_EB !1/K (butane)

THERMO_DATA(75)%FORMULA   = 'C2N2'
THERMO_DATA(75)%NAME      = 'CYANONGEN'
THERMO_DATA(75)%POLY      = 'NASA9'
THERMO_DATA(75)%BANDS     = 2
THERMO_DATA(75)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(75)%A(1:7,1)  = &
   (/ 0.108240448E+06_EB,-0.192813787E+04_EB, 0.155389190E+02_EB,-0.182115930E-01_EB, 0.277884000E-04_EB,&
     -0.189943000E-07_EB, 0.494968000E-11_EB/)
THERMO_DATA(75)%B(1:2,1)  = (/ 0.444909759E+05_EB,-0.609096474E+02_EB/)
THERMO_DATA(75)%A(1:7,2)  = &
   (/ 0.793442372E+06_EB,-0.399737627E+04_EB, 0.131449743E+02_EB,-0.874778000E-03_EB, 0.205916000E-06_EB,&
     -0.220047000E-10_EB, 0.997449000E-15_EB/)
THERMO_DATA(75)%B(1:2,2)  = (/ 0.586363230E+05_EB,-0.547320125E+02_EB/)
THERMO_DATA(75)%H_F       =    309.100000_EB
THERMO_DATA(75)%SIGMA     =  4.361_EB ! R-132
THERMO_DATA(75)%EPSOK     =  3486.00_EB
THERMO_DATA(75)%PR        =  0.72_EB ! R-132
 
THERMO_DATA(76)%FORMULA   = 'C3H2'
THERMO_DATA(76)%NAME      = 'CYCLOPROPENYLIDENE'
THERMO_DATA(76)%POLY      = 'NASA7'
THERMO_DATA(76)%BANDS     = 2
THERMO_DATA(76)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.500000000E+04_EB/)
THERMO_DATA(76)%A(1:5,1)  = &
   (/ 0.340906240E+01_EB, 0.107385740E-01_EB, 0.189149250E-05_EB, 0.715858310E-08_EB, 0.286738510E-11_EB/)
THERMO_DATA(76)%B(1:2,1)  = (/ 0.152147660E+04_EB, 0.957145350E+01_EB/)
THERMO_DATA(76)%A(1:5,2)  = &
   (/ 0.597566990E+01_EB, 0.813059140E-02_EB,-0.274362450E-05_EB, 0.407030410E-09_EB,-0.217601710E-13_EB/)
THERMO_DATA(76)%B(1:2,2)  = (/ 0.490321780E+03_EB,-0.503208790E+01_EB/)
THERMO_DATA(76)%H_F       =    25.33740766_EB
THERMO_DATA(76)%SIGMA     =  3.970_EB ! GRM3
THERMO_DATA(76)%EPSOK     =   436.00_EB
THERMO_DATA(76)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(77)%FORMULA   = 'C3H3'
THERMO_DATA(77)%NAME      = '1-PROPENYL'
THERMO_DATA(77)%POLY      = 'NASA9'
THERMO_DATA(77)%BANDS     = 2
THERMO_DATA(77)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(77)%A(1:7,1)  = &
   (/-0.650585935E+05_EB, 0.135085892E+04_EB,-0.582543393E+01_EB, 0.375661050E-01_EB,-0.373490000E-04_EB,&
      0.211768000E-07_EB,-0.513911000E-11_EB/)
THERMO_DATA(77)%B(1:2,1)  = (/ 0.465651053E+05_EB, 0.578147755E+02_EB/)
THERMO_DATA(77)%A(1:7,2)  = &
   (/ 0.455065487E+07_EB,-0.164057417E+05_EB, 0.271260599E+02_EB,-0.447460000E-02_EB, 0.103771000E-05_EB,&
     -0.125021000E-09_EB, 0.602658000E-14_EB/)
THERMO_DATA(77)%B(1:2,2)  = (/ 0.153408766E+06_EB,-0.156593181E+03_EB/)
THERMO_DATA(77)%H_F       =    450.000000_EB
THERMO_DATA(77)%SIGMA     =  4.760_EB ! GRM3
THERMO_DATA(77)%EPSOK     =   252.00_EB
THERMO_DATA(77)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(78)%FORMULA   = 'C3H4'
THERMO_DATA(78)%NAME      = 'CYCLOPROPENE'
THERMO_DATA(78)%POLY      = 'NASA9'
THERMO_DATA(78)%BANDS     = 2
THERMO_DATA(78)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(78)%A(1:7,1)  = &
   (/-0.196952063E+05_EB, 0.150537934E+04_EB,-0.141820657E+02_EB, 0.764263300E-01_EB,-0.976558000E-04_EB,&
      0.661200000E-07_EB,-0.181125000E-10_EB/)
THERMO_DATA(78)%B(1:2,1)  = (/ 0.262563178E+05_EB, 0.960463189E+02_EB/)
THERMO_DATA(78)%A(1:7,2)  = &
   (/ 0.316839958E+07_EB,-0.137104470E+05_EB, 0.266430365E+02_EB,-0.242040800E-02_EB, 0.442799000E-06_EB,&
     -0.435182000E-10_EB, 0.177595000E-14_EB/)
THERMO_DATA(78)%B(1:2,2)  = (/ 0.113368370E+06_EB,-0.152261909E+03_EB/)
THERMO_DATA(78)%H_F       =    277.100000_EB
THERMO_DATA(78)%SIGMA     =  4.760_EB ! GRM3
THERMO_DATA(78)%EPSOK     =   252.00_EB
THERMO_DATA(78)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(79)%FORMULA   = 'C3H4'
THERMO_DATA(79)%NAME      = 'ALLENE'
THERMO_DATA(79)%POLY      = 'NASA9'
THERMO_DATA(79)%BANDS     = 2
THERMO_DATA(79)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(79)%A(1:7,1)  = &
   (/-0.164515575E+05_EB, 0.962945781E+03_EB,-0.753232668E+01_EB, 0.551821910E-01_EB,-0.673359000E-04_EB,&
      0.453271000E-07_EB,-0.125184000E-10_EB/)
THERMO_DATA(79)%B(1:2,1)  = (/ 0.177249427E+05_EB, 0.615196976E+02_EB/)
THERMO_DATA(79)%A(1:7,2)  = &
   (/ 0.347935510E+07_EB,-0.143041245E+05_EB, 0.270253476E+02_EB,-0.255741200E-02_EB, 0.470665000E-06_EB,&
     -0.465169000E-10_EB, 0.190822000E-14_EB/)
THERMO_DATA(79)%B(1:2,2)  = (/ 0.107231235E+06_EB,-0.154884616E+03_EB/)
THERMO_DATA(79)%H_F       =    190.920000_EB
THERMO_DATA(79)%SIGMA     =  4.760_EB ! GRM3
THERMO_DATA(79)%EPSOK     =   252.00_EB
THERMO_DATA(79)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(80)%FORMULA   = 'C3H4'
THERMO_DATA(80)%NAME      = 'PROPYNE'
THERMO_DATA(80)%POLY      = 'NASA9'
THERMO_DATA(80)%BANDS     = 2
THERMO_DATA(80)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(80)%A(1:7,1)  = &
   (/-0.356388440E+05_EB, 0.832813910E+03_EB,-0.407375944E+01_EB, 0.411392960E-01_EB,-0.447044000E-04_EB,&
      0.284746000E-07_EB,-0.769530000E-11_EB/)
THERMO_DATA(80)%B(1:2,1)  = (/ 0.171020624E+05_EB, 0.451672095E+02_EB/)
THERMO_DATA(80)%A(1:7,2)  = &
   (/ 0.371044142E+07_EB,-0.148914551E+05_EB, 0.273239713E+02_EB,-0.264526500E-02_EB, 0.485830000E-06_EB,&
     -0.479413000E-10_EB, 0.196434000E-14_EB/)
THERMO_DATA(80)%B(1:2,2)  = (/ 0.110489846E+06_EB,-0.156799246E+03_EB/)
THERMO_DATA(80)%H_F       =    184.900000_EB
THERMO_DATA(80)%SIGMA     =  4.761_EB ! R-132
THERMO_DATA(80)%EPSOK     =   251.80_EB
THERMO_DATA(80)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(81)%FORMULA   = 'C3H5'
THERMO_DATA(81)%NAME      = 'ALLYL RADICAL'
THERMO_DATA(81)%POLY      = 'NASA9'
THERMO_DATA(81)%BANDS     = 2
THERMO_DATA(81)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(81)%A(1:7,1)  = &
   (/-0.431599614E+05_EB, 0.144160091E+04_EB,-0.119701443E+02_EB, 0.731979650E-01_EB,-0.906636000E-04_EB,&
      0.607706000E-07_EB,-0.165883000E-10_EB/)
THERMO_DATA(81)%B(1:2,1)  = (/ 0.123215746E+05_EB, 0.856317324E+02_EB/)
THERMO_DATA(81)%A(1:7,2)  = &
   (/ 0.409457059E+07_EB,-0.167667619E+05_EB, 0.312300634E+02_EB,-0.288545000E-02_EB, 0.521134000E-06_EB,&
     -0.505828000E-10_EB, 0.203993000E-14_EB/)
THERMO_DATA(81)%B(1:2,2)  = (/ 0.118572048E+06_EB,-0.182307020E+03_EB/)
THERMO_DATA(81)%H_F       =    163.594400_EB
THERMO_DATA(81)%SIGMA     =  4.982_EB ! GRM3
THERMO_DATA(81)%EPSOK     =   266.80_EB
THERMO_DATA(81)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(82)%FORMULA   = 'C3H6'
THERMO_DATA(82)%NAME      = 'CYCLOPROPANE'
THERMO_DATA(82)%POLY      = 'NASA9'
THERMO_DATA(82)%BANDS     = 2
THERMO_DATA(82)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(82)%A(1:7,1)  = &
   (/-0.156578777E+06_EB, 0.411112987E+04_EB,-0.323344746E+02_EB, 0.130633788E+00_EB,-0.164556000E-03_EB,&
      0.109571000E-06_EB,-0.295639000E-10_EB/)
THERMO_DATA(82)%B(1:2,1)  = (/-0.124527169E+05_EB, 0.193155911E+03_EB/)
THERMO_DATA(82)%A(1:7,2)  = &
   (/ 0.478500067E+07_EB,-0.204211817E+05_EB, 0.363149578E+02_EB,-0.356131900E-02_EB, 0.647624000E-06_EB,&
     -0.632843000E-10_EB, 0.256871000E-14_EB/)
THERMO_DATA(82)%B(1:2,2)  = (/ 0.126827413E+06_EB,-0.222372910E+03_EB/)
THERMO_DATA(82)%H_F       =     53.300000_EB
THERMO_DATA(82)%SIGMA     =  4.807_EB ! R-132
THERMO_DATA(82)%EPSOK     =   248.90_EB
THERMO_DATA(82)%PR        =  0.72_EB ! R-132
 
THERMO_DATA(83)%FORMULA   = 'C3H6'
THERMO_DATA(83)%NAME      = 'PROPYLENE'
THERMO_DATA(83)%POLY      = 'NASA9'
THERMO_DATA(83)%BANDS     = 2
THERMO_DATA(83)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(83)%A(1:7,1)  = &
   (/-0.191246217E+06_EB, 0.354207424E+04_EB,-0.211487863E+02_EB, 0.890148480E-01_EB,-0.100143000E-03_EB,&
      0.626796000E-07_EB,-0.163787000E-10_EB/)
THERMO_DATA(83)%B(1:2,1)  = (/-0.152996182E+05_EB, 0.140764138E+03_EB/)
THERMO_DATA(83)%A(1:7,2)  = &
   (/ 0.501762034E+07_EB,-0.208608403E+05_EB, 0.364415634E+02_EB,-0.388119100E-02_EB, 0.727868000E-06_EB,&
     -0.732120000E-10_EB, 0.305218000E-14_EB/)
THERMO_DATA(83)%B(1:2,2)  = (/ 0.126124535E+06_EB,-0.219571576E+03_EB/)
THERMO_DATA(83)%H_F       =     20.000000_EB
THERMO_DATA(83)%SIGMA     =  4.678_EB ! R-132
THERMO_DATA(83)%EPSOK     =   289.90_EB
THERMO_DATA(83)%PR        =  0.82_EB ! airliquide.com
THERMO_DATA(83)%RADCAL_ID = 'PROPYLENE'
THERMO_DATA(83)%LIQUID    = .TRUE.
THERMO_DATA(83)%T(1:2)    = (/90._EB,280._EB/)
THERMO_DATA(83)%A_L(3:6,1)= (/2.94746E+03_EB,-1.29825E+01_EB,5.75614E-02_EB,-6.71250E-05_EB/)
THERMO_DATA(83)%H_V       = 575811.5686_EB !J/kg
THERMO_DATA(83)%T_REF     = 88._EB !K
THERMO_DATA(83)%T_MELT    = 88._EB !K
THERMO_DATA(83)%T_BOIL    = 225.41_EB !K
THERMO_DATA(83)%DENSITY   = 609._EB !kg/m^3
THERMO_DATA(83)%FUEL      = .TRUE.
THERMO_DATA(83)%MU        = 0.00009_EB  !N.s/m^2
THERMO_DATA(83)%BETA      = 0.004_EB !1/K (propane)

THERMO_DATA(84)%FORMULA   = 'C3H6O'
THERMO_DATA(84)%NAME      = 'ACETONE'
THERMO_DATA(84)%POLY      = 'NASA9'
THERMO_DATA(84)%BANDS     = 2
THERMO_DATA(84)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(84)%A(1:7,1)  = &
   (/-0.227780253E+06_EB, 0.421528001E+04_EB,-0.241578532E+02_EB, 0.990748330E-01_EB,-0.108494000E-03_EB,&
      0.658336000E-07_EB,-0.167605000E-10_EB/)
THERMO_DATA(84)%B(1:2,1)  = (/-0.472624394E+05_EB, 0.160792643E+03_EB/)
THERMO_DATA(84)%A(1:7,2)  = &
   (/ 0.500160192E+07_EB,-0.217015554E+05_EB, 0.396449399E+02_EB,-0.417994500E-02_EB, 0.796243000E-06_EB,&
     -0.812256000E-10_EB, 0.342878000E-14_EB/)
THERMO_DATA(84)%B(1:2,2)  = (/ 0.101514503E+06_EB,-0.236853348E+03_EB/)
THERMO_DATA(84)%H_F       =   -217.149600_EB
THERMO_DATA(84)%SIGMA     =  4.600_EB ! R-132
THERMO_DATA(84)%EPSOK     =   560.20_EB
THERMO_DATA(84)%PR        =  0.87_EB ! Faghri&Zhang Transport Phenomena in Mult
THERMO_DATA(84)%RADCAL_ID = 'MMA'
THERMO_DATA(84)%LIQUID    = .TRUE.
THERMO_DATA(84)%T_L(1:2)  = (/180.3_EB,331.6_EB/)
THERMO_DATA(84)%T_UNIT    = 0.01_EB
THERMO_DATA(84)%CP_UNIT   = 8314.472_EB/58.07914_EB
THERMO_DATA(84)%A_L(3:6,1)= (/-23.6004_EB,40.7683_EB,-14.8605_EB,1.86185_EB/)
THERMO_DATA(84)%H_V       = 538919.8256_EB !J/kg
THERMO_DATA(84)%T_REF     = 329.3_EB !K
THERMO_DATA(84)%T_MELT    = 178.7_EB !K
THERMO_DATA(84)%T_BOIL    = 329.3_EB !K
THERMO_DATA(84)%DENSITY   = 791._EB !kg/m^3
THERMO_DATA(84)%MU        = 0.000316_EB !N.s/m^2
THERMO_DATA(84)%K         = 0.180_EB !W/m/K
THERMO_DATA(84)%FUEL      = .TRUE.
THERMO_DATA(84)%BETA      = 0.00148_EB !1/K
 
THERMO_DATA(85)%FORMULA   = 'C3H7'
THERMO_DATA(85)%NAME      = 'PROPYL RADICAL'
THERMO_DATA(85)%POLY      = 'NASA9'
THERMO_DATA(85)%BANDS     = 2
THERMO_DATA(85)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(85)%A(1:7,1)  = &
   (/-0.189533707E+06_EB, 0.394951726E+04_EB,-0.260621609E+02_EB, 0.112192044E+00_EB,-0.136529000E-03_EB,&
      0.902366000E-07_EB,-0.244106000E-10_EB/)
THERMO_DATA(85)%B(1:2,1)  = (/-0.722787744E+04_EB, 0.167370556E+03_EB/)
THERMO_DATA(85)%A(1:7,2)  = &
   (/ 0.564651294E+07_EB,-0.229108714E+05_EB, 0.398727518E+02_EB,-0.410623300E-02_EB, 0.756256000E-06_EB,&
     -0.747826000E-10_EB, 0.306898000E-14_EB/)
THERMO_DATA(85)%B(1:2,2)  = (/ 0.148300685E+06_EB,-0.240378119E+03_EB/)
THERMO_DATA(85)%H_F       =    100.500000_EB
THERMO_DATA(85)%SIGMA     =  4.982_EB ! GRM3
THERMO_DATA(85)%EPSOK     =   266.80_EB
THERMO_DATA(85)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(86)%FORMULA   = 'C3H8'
THERMO_DATA(86)%NAME      = 'PROPANE'
THERMO_DATA(86)%POLY      = 'NASA9'
THERMO_DATA(86)%BANDS     = 2
THERMO_DATA(86)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(86)%A(1:7,1)  = &
   (/-0.243314434E+06_EB, 0.465627081E+04_EB,-0.293946609E+02_EB, 0.118895274E+00_EB,-0.137631000E-03_EB,&
      0.881482000E-07_EB,-0.234299000E-10_EB/)
THERMO_DATA(86)%B(1:2,1)  = (/-0.354033527E+05_EB, 0.184174928E+03_EB/)
THERMO_DATA(86)%A(1:7,2)  = &
   (/ 0.642073168E+07_EB,-0.265979113E+05_EB, 0.453435684E+02_EB,-0.502066400E-02_EB, 0.947122000E-06_EB,&
     -0.957541000E-10_EB, 0.400967000E-14_EB/)
THERMO_DATA(86)%B(1:2,2)  = (/ 0.145558246E+06_EB,-0.281837473E+03_EB/)
THERMO_DATA(86)%H_F       =   -104.680000_EB
THERMO_DATA(86)%SIGMA     =  5.118_EB ! R-132
THERMO_DATA(86)%EPSOK     =   237.10_EB
THERMO_DATA(86)%PR        =  0.73_EB ! R-132
THERMO_DATA(86)%RADCAL_ID = 'PROPANE'
THERMO_DATA(86)%LIQUID    = .TRUE.
THERMO_DATA(86)%T(1:2)    = (/90._EB,270._EB/)
THERMO_DATA(86)%A_L(3:6,1)= (/1.69008E+03_EB,3.85475E+00_EB,-2.26153E-02_EB,7.05233E-05_EB/)
THERMO_DATA(86)%H_V       = 552422.9873 !J/kg
THERMO_DATA(86)%T_REF     = 86._EB !K
THERMO_DATA(86)%T_MELT    = 86._EB !K
THERMO_DATA(86)%T_BOIL    = 231.25_EB !K
THERMO_DATA(86)%DENSITY   = 590._EB !kg/m^3
THERMO_DATA(86)%FUEL      = .TRUE.
THERMO_DATA(86)%K         = 0.129_EB !W/m/K
THERMO_DATA(86)%MU        = 0.000197_EB  !N.s/m^2
THERMO_DATA(86)%BETA      = 0.004_EB !1/K

THERMO_DATA(87)%FORMULA   = 'C3H8O'
THERMO_DATA(87)%NAME      = 'ISOPROPANOL'
THERMO_DATA(87)%POLY      = 'NASA9'
THERMO_DATA(87)%BANDS     = 2
THERMO_DATA(87)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(87)%A(1:7,1)  = &
   (/-0.338651024E+06_EB, 0.610604800E+04_EB,-0.379141804E+02_EB, 0.153049453E+00_EB,-0.186435000E-03_EB,&
      0.121326000E-06_EB,-0.322043000E-10_EB/)
THERMO_DATA(87)%B(1:2,1)  = (/-0.627995935E+05_EB, 0.233432261E+03_EB/)
THERMO_DATA(87)%A(1:7,2)  = &
   (/ 0.600107475E+07_EB,-0.250587683E+05_EB, 0.462209612E+02_EB,-0.427246600E-02_EB, 0.769368000E-06_EB,&
     -0.745058000E-10_EB, 0.299896000E-14_EB/)
THERMO_DATA(87)%B(1:2,2)  = (/ 0.114851873E+06_EB,-0.279613222E+03_EB/)
THERMO_DATA(87)%H_F       =   -272.700000_EB
THERMO_DATA(87)%SIGMA     =  4.549_EB ! R-132
THERMO_DATA(87)%EPSOK     =   576.70_EB
THERMO_DATA(87)%PR        =  0.71_EB ! Assume N2
THERMO_DATA(87)%RADCAL_ID = 'METHANOL'
THERMO_DATA(87)%LIQUID    = .TRUE.
THERMO_DATA(87)%T(1:2)    = (/190._EB,430._EB/)
THERMO_DATA(87)%A_L(3:6,1)= (/7.42454E+03_EB,-6.55874E+01_EB,2.35666E-01_EB,-2.34629E-04_EB/)
THERMO_DATA(87)%H_V       = 882038.0541_EB !J/kg
THERMO_DATA(87)%T_REF     = 185._EB !K
THERMO_DATA(87)%T_MELT    = 185._EB !K
THERMO_DATA(87)%T_BOIL    = 370.57_EB !K
THERMO_DATA(87)%DENSITY   = 785._EB !kg/m^3
THERMO_DATA(87)%FUEL      = .TRUE.
THERMO_DATA(87)%MU        = 0.00194_EB !N.s/m^2
THERMO_DATA(87)%K         = 0.178_EB !W/m/K
THERMO_DATA(87)%BETA      = 0.00113_EB !1/K

THERMO_DATA(88)%FORMULA   = 'C3H8O'
THERMO_DATA(88)%NAME      = 'PROPANOL'
THERMO_DATA(88)%POLY      = 'NASA9'
THERMO_DATA(88)%BANDS     = 2
THERMO_DATA(88)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(88)%A(1:7,1)  = &
   (/-0.261697334E+06_EB, 0.519237666E+04_EB,-0.329648116E+02_EB, 0.135456813E+00_EB,-0.159316000E-03_EB,&
      0.101950000E-06_EB,-0.268855000E-10_EB/)
THERMO_DATA(88)%B(1:2,1)  = (/-0.561285435E+05_EB, 0.208502443E+03_EB/)
THERMO_DATA(88)%A(1:7,2)  = &
   (/ 0.630867212E+07_EB,-0.264221038E+05_EB, 0.471511259E+02_EB,-0.464251200E-02_EB, 0.859347000E-06_EB,&
     -0.868209000E-10_EB, 0.364222000E-14_EB/)
THERMO_DATA(88)%B(1:2,2)  = (/ 0.125500315E+06_EB,-0.285946380E+03_EB/)
THERMO_DATA(88)%H_F       =   -255.200000_EB
THERMO_DATA(88)%SIGMA     =  4.549_EB ! R-132
THERMO_DATA(88)%EPSOK     =   576.70_EB
THERMO_DATA(88)%PR        =  0.71_EB ! Assume N2
THERMO_DATA(88)%RADCAL_ID = 'METHANOL'
 
THERMO_DATA(89)%FORMULA   = 'C4H10'
THERMO_DATA(89)%NAME      = 'ISOBUTANE'
THERMO_DATA(89)%POLY      = 'NASA9'
THERMO_DATA(89)%BANDS     = 2
THERMO_DATA(89)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(89)%A(1:7,1)  = &
   (/-0.383446933E+06_EB, 0.700003964E+04_EB,-0.444002690E+02_EB, 0.174618345E+00_EB,-0.207820000E-03_EB,&
      0.133979000E-06_EB,-0.355168000E-10_EB/)
THERMO_DATA(89)%B(1:2,1)  = (/-0.503401889E+05_EB, 0.265896650E+03_EB/)
THERMO_DATA(89)%A(1:7,2)  = &
   (/ 0.752801892E+07_EB,-0.320251706E+05_EB, 0.570016100E+02_EB,-0.606001300E-02_EB, 0.114398000E-05_EB,&
     -0.115706000E-09_EB, 0.484604000E-14_EB/)
THERMO_DATA(89)%B(1:2,2)  = (/ 0.172850080E+06_EB,-0.357617689E+03_EB/)
THERMO_DATA(89)%H_F       =   -134.990000_EB
THERMO_DATA(89)%SIGMA     =  5.287_EB ! R-132
THERMO_DATA(89)%EPSOK     =   330.10_EB
THERMO_DATA(89)%PR        =  0.83_EB ! airliquide.com
THERMO_DATA(89)%RADCAL_ID = 'PROPANE'
 
THERMO_DATA(90)%FORMULA   = 'C4H10'
THERMO_DATA(90)%NAME      = 'BUTANE'
THERMO_DATA(90)%POLY      = 'NASA9'
THERMO_DATA(90)%BANDS     = 2
THERMO_DATA(90)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(90)%A(1:7,1)  = &
   (/-0.317587254E+06_EB, 0.617633182E+04_EB,-0.389156212E+02_EB, 0.158465428E+00_EB,-0.186005000E-03_EB,&
      0.119968000E-06_EB,-0.320167000E-10_EB/)
THERMO_DATA(90)%B(1:2,1)  = (/-0.454036339E+05_EB, 0.237948867E+03_EB/)
THERMO_DATA(90)%A(1:7,2)  = &
   (/ 0.768232245E+07_EB,-0.325605151E+05_EB, 0.573673275E+02_EB,-0.619791700E-02_EB, 0.118019000E-05_EB,&
     -0.122189000E-09_EB, 0.525064000E-14_EB/)
THERMO_DATA(90)%B(1:2,2)  = (/ 0.177452656E+06_EB,-0.358791876E+03_EB/)
THERMO_DATA(90)%H_F       =   -125.790000_EB
THERMO_DATA(90)%SIGMA     =  4.687_EB ! R-132
THERMO_DATA(90)%EPSOK     =   531.40_EB
THERMO_DATA(90)%PR        =  0.83_EB ! airliquide.com
THERMO_DATA(90)%RADCAL_ID = 'PROPANE'
THERMO_DATA(90)%LIQUID    = .TRUE.
THERMO_DATA(90)%T_L(1:2)  = (/100._EB,240._EB/)
THERMO_DATA(90)%A_L(3:6,1)= (/1.17542E+03_EB,1.08908E+01_EB,-5.23290E-02_EB,1.00177E-04_EB/) 
THERMO_DATA(90)%H_V       = 440269.1313_EB !J/kg
THERMO_DATA(90)%T_REF     = 136._EB !K
THERMO_DATA(90)%T_MELT    = 136._EB !K
THERMO_DATA(90)%T_BOIL    = 272.66_EB !K
THERMO_DATA(90)%DENSITY   = 600._EB !kg/m^3
THERMO_DATA(90)%FUEL      = .TRUE.
THERMO_DATA(90)%K         = 0.117_EB !W/m/K
THERMO_DATA(90)%MU        = 0.000228_EB  !N.s/m^2
THERMO_DATA(90)%BETA      = 0.00207_EB !1/K
 
THERMO_DATA(91)%FORMULA   = 'C4H2'
THERMO_DATA(91)%NAME      = 'BUTADIYNE'
THERMO_DATA(91)%POLY      = 'NASA9'
THERMO_DATA(91)%BANDS     = 2
THERMO_DATA(91)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(91)%A(1:7,1)  = &
   (/ 0.246754257E+06_EB,-0.389785564E+04_EB, 0.236608046E+02_EB,-0.220807780E-01_EB, 0.278110000E-04_EB,&
     -0.157734000E-07_EB, 0.342317000E-11_EB/)
THERMO_DATA(91)%B(1:2,1)  = (/ 0.708690782E+05_EB,-0.110917356E+03_EB/)
THERMO_DATA(91)%A(1:7,2)  = &
   (/ 0.232817991E+07_EB,-0.892518609E+04_EB, 0.211432688E+02_EB,-0.136887100E-02_EB, 0.232750000E-06_EB,&
     -0.212452000E-10_EB, 0.805331000E-15_EB/)
THERMO_DATA(91)%B(1:2,2)  = (/ 0.105778842E+06_EB,-0.108831357E+03_EB/)
THERMO_DATA(91)%H_F       =    450.000000_EB
THERMO_DATA(91)%SIGMA     =  5.180_EB ! GRM3
THERMO_DATA(91)%EPSOK     =   357.00_EB
THERMO_DATA(91)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(92)%FORMULA   = 'C4H3'
THERMO_DATA(92)%NAME      = 'i-C4H3'
THERMO_DATA(92)%POLY      = 'NASA7'
THERMO_DATA(92)%BANDS     = 2
THERMO_DATA(92)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.300000000E+04_EB/)
THERMO_DATA(92)%A(1:5,1)  = &
   (/ 2.08304120E+00_EB, 4.08342740E-02_EB,-6.21596850E-05_EB, 5.16793580E-08_EB,-1.70291840E-11_EB/)
THERMO_DATA(92)%B(1:2,1)  = (/ 5.80051290E+04_EB,1.36174620E+01_EB/)
THERMO_DATA(92)%A(1:5,2)  = &
   (/ 9.09781650E+00_EB, 9.22071190E-03_EB,-3.38784410E-06_EB, 4.91604980E-10_EB,-1.45297800E-14_EB/)
THERMO_DATA(92)%B(1:2,2)  = (/ 5.66005740E+04_EB,-1.98025970E+01_EB/)
THERMO_DATA(92)%H_F       =   498.7523715_EB
THERMO_DATA(92)%SIGMA     =  5.180_EB ! GRM3
THERMO_DATA(92)%EPSOK     =   357.00_EB
THERMO_DATA(92)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(93)%FORMULA   = 'C4H3'
THERMO_DATA(93)%NAME      = 'n-C4H3'
THERMO_DATA(93)%POLY      = 'NASA7'
THERMO_DATA(93)%BANDS     = 2
THERMO_DATA(93)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.300000000E+04_EB/)
THERMO_DATA(93)%A(1:5,1)  = &
   (/-3.16841130E-01_EB, 4.69121000E-02_EB,-6.80938100E-05_EB, 5.31799210E-08_EB,-1.65230050E-11_EB/)
THERMO_DATA(93)%B(1:2,1)  = (/ 6.24761990E+04_EB, 2.46225590E+01_EB/)
THERMO_DATA(93)%A(1:5,2)  = &
   (/ 5.43282790E+00_EB, 1.68609810E-02_EB, -9.43131090E-06_EB,2.57038950E-09_EB,-2.74563090E-13_EB/)
THERMO_DATA(93)%B(1:2,2)  = (/ 6.16006800E+04_EB,-1.56739810E+00_EB/)
THERMO_DATA(93)%H_F       =   531.8145549_EB
THERMO_DATA(93)%SIGMA     =  5.180_EB ! GRM3
THERMO_DATA(93)%EPSOK     =   357.00_EB
THERMO_DATA(93)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(94)%FORMULA   = 'C4H4'
THERMO_DATA(94)%NAME      = 'CYCLOBUTADIENE'
THERMO_DATA(94)%POLY      = 'NASA9'
THERMO_DATA(94)%BANDS     = 2
THERMO_DATA(94)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(94)%A(1:7,1)  = &
   (/-0.277842805E+05_EB, 0.176817692E+04_EB,-0.175789517E+02_EB, 0.938351290E-01_EB,-0.119552000E-03_EB,&
      0.797809000E-07_EB,-0.215275000E-10_EB/)
THERMO_DATA(94)%B(1:2,1)  = (/ 0.381162712E+05_EB, 0.112847812E+03_EB/)
THERMO_DATA(94)%A(1:7,2)  = &
   (/ 0.299149895E+07_EB,-0.141678150E+05_EB, 0.300197888E+02_EB,-0.257920000E-02_EB, 0.478999000E-06_EB,&
     -0.477533000E-10_EB, 0.197492000E-14_EB/)
THERMO_DATA(94)%B(1:2,2)  = (/ 0.127466692E+06_EB,-0.172753206E+03_EB/)
THERMO_DATA(94)%H_F       =    385.000000_EB
THERMO_DATA(94)%SIGMA     =  5.180_EB ! GRM3
THERMO_DATA(94)%EPSOK     =   357.00_EB
THERMO_DATA(94)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(95)%FORMULA   = 'C4H5'
THERMO_DATA(95)%NAME      = 'i-C4H5'
THERMO_DATA(95)%POLY      = 'NASA7'
THERMO_DATA(95)%BANDS     = 2
THERMO_DATA(95)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.300000000E+04_EB/)
THERMO_DATA(95)%A(1:5,1)  = &
   (/-1.99329000E-02_EB, 3.80056720E-02_EB,-2.75594500E-05_EB, 7.78355510E-09_EB, 4.02093830E-13_EB/)
THERMO_DATA(95)%B(1:2,1)  = (/ 3.74962230E+04_EB,2.43942410E+01_EB/)
THERMO_DATA(95)%A(1:5,2)  = &
   (/ 1.02290920E+01_EB, 9.48501380E-03_EB,-9.04064450E-08_EB,-1.25961000E-09_EB, 2.47814680E-13_EB/)
THERMO_DATA(95)%B(1:2,2)  = (/ 3.46428120E+04_EB,-2.85645290E+01_EB/)
THERMO_DATA(95)%H_F       =  323.8619747_EB
THERMO_DATA(95)%SIGMA     =  5.180_EB ! GRM3
THERMO_DATA(95)%EPSOK     =   357.00_EB
THERMO_DATA(95)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(96)%FORMULA   = 'C4H5'
THERMO_DATA(96)%NAME      = 'n-C4H5'
THERMO_DATA(96)%POLY      = 'NASA7'
THERMO_DATA(96)%BANDS     = 2
THERMO_DATA(96)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.300000000E+04_EB/)
THERMO_DATA(96)%A(1:5,1)  = &
   (/ 0.163053210E+00_EB, 0.398301370E-01_EB,-0.340001280E-04_EB, 0.151472330E-07_EB,-0.246658250E-11_EB/)
THERMO_DATA(96)%B(1:2,1)  = (/ 0.414297660E+05_EB, 0.235361630E+02_EB/)
THERMO_DATA(96)%A(1:5,2)  = &
   (/ 0.543282790E+01_EB, 0.168609810E-01_EB,-0.943131090E-05_EB, 0.257038950E-08_EB,-0.274563090E-12_EB/)
THERMO_DATA(96)%B(1:2,2)  = (/ 0.616006800E+05_EB,-0.156739810E+01_EB/)
THERMO_DATA(96)%H_F       =   357.3317716_EB
THERMO_DATA(96)%SIGMA     =  5.180_EB ! GRM3
THERMO_DATA(96)%EPSOK     =   357.00_EB
THERMO_DATA(96)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(97)%FORMULA   = 'C4H6'
THERMO_DATA(97)%NAME      = '1-BUTYNE'
THERMO_DATA(97)%POLY      = 'NASA9'
THERMO_DATA(97)%BANDS     = 2
THERMO_DATA(97)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(97)%A(1:7,1)  = &
   (/-0.559703997E+05_EB, 0.143319171E+04_EB,-0.969121072E+01_EB, 0.715000240E-01_EB,-0.815797000E-04_EB,&
      0.529036000E-07_EB,-0.143566000E-10_EB/)
THERMO_DATA(97)%B(1:2,1)  = (/ 0.118498701E+05_EB, 0.766022536E+02_EB/)
THERMO_DATA(97)%A(1:7,2)  = &
   (/ 0.636440270E+07_EB,-0.239208773E+05_EB, 0.407375041E+02_EB,-0.317672600E-02_EB, 0.119986000E-06_EB,&
      0.320180000E-10_EB,-0.285439000E-14_EB/)
THERMO_DATA(97)%B(1:2,2)  = (/ 0.163433555E+06_EB,-0.246028479E+03_EB/)
THERMO_DATA(97)%H_F       =    165.200000_EB
THERMO_DATA(97)%SIGMA     =  5.180_EB ! GRM3
THERMO_DATA(97)%EPSOK     =   357.00_EB
THERMO_DATA(97)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(98)%FORMULA   = 'C4H6'
THERMO_DATA(98)%NAME      = '2-BUTYNE'
THERMO_DATA(98)%POLY      = 'NASA9'
THERMO_DATA(98)%BANDS     = 2
THERMO_DATA(98)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(98)%A(1:7,1)  = &
   (/-0.265075640E+06_EB, 0.449072869E+04_EB,-0.240072389E+02_EB, 0.981957960E-01_EB,-0.107972000E-03_EB,&
      0.667556000E-07_EB,-0.174077000E-10_EB/)
THERMO_DATA(98)%B(1:2,1)  = (/-0.532836371E+04_EB, 0.159503527E+03_EB/)
THERMO_DATA(98)%A(1:7,2)  = &
   (/ 0.398130433E+07_EB,-0.187303290E+05_EB, 0.365456149E+02_EB,-0.236968600E-02_EB, 0.399021000E-06_EB,&
     -0.369871000E-10_EB, 0.144207000E-14_EB/)
THERMO_DATA(98)%B(1:2,2)  = (/ 0.126146021E+06_EB,-0.215586621E+03_EB/)
THERMO_DATA(98)%H_F       =    145.700000_EB
THERMO_DATA(98)%SIGMA     =  5.180_EB ! GRM3
THERMO_DATA(98)%EPSOK     =   357.00_EB
THERMO_DATA(98)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(99)%FORMULA   = 'C4H6'
THERMO_DATA(99)%NAME      = 'BUTADIENE'
THERMO_DATA(99)%POLY      = 'NASA9'
THERMO_DATA(99)%BANDS     = 2
THERMO_DATA(99)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(99)%A(1:7,1)  = &
   (/-0.918113053E+05_EB, 0.331257053E+04_EB,-0.298582861E+02_EB, 0.147920115E+00_EB,-0.205662000E-03_EB,&
      0.146650000E-06_EB,-0.414529000E-10_EB/)
THERMO_DATA(99)%B(1:2,1)  = (/-0.207730944E+04_EB, 0.178068733E+03_EB/)
THERMO_DATA(99)%A(1:7,2)  = &
   (/-0.236190319E+08_EB, 0.565132337E+05_EB,-0.327573832E+02_EB, 0.229307060E-01_EB,-0.229711000E-05_EB,&
      0.429260000E-10_EB, 0.423677000E-14_EB/)
THERMO_DATA(99)%B(1:2,2)  = (/-0.367135862E+06_EB, 0.301343730E+03_EB/)
THERMO_DATA(99)%H_F       =    110.000000_EB
THERMO_DATA(99)%SIGMA     =  5.180_EB ! GRM3
THERMO_DATA(99)%EPSOK     =   357.00_EB
THERMO_DATA(99)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(100)%FORMULA   = 'C4H6'
THERMO_DATA(100)%NAME      = 'CYCLOBUTENE'
THERMO_DATA(100)%POLY      = 'NASA9'
THERMO_DATA(100)%BANDS     = 2
THERMO_DATA(100)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(100)%A(1:7,1)  = &
   (/-0.204670773E+06_EB, 0.491947057E+04_EB,-0.375327816E+02_EB, 0.149729303E+00_EB,-0.186014000E-03_EB,&
      0.121991000E-06_EB,-0.325407000E-10_EB/)
THERMO_DATA(100)%B(1:2,1)  = (/-0.391595054E+04_EB, 0.223328214E+03_EB/)
THERMO_DATA(100)%A(1:7,2)  = &
   (/ 0.451736782E+07_EB,-0.209731198E+05_EB, 0.400803917E+02_EB,-0.394979400E-02_EB, 0.744848000E-06_EB,&
     -0.752975000E-10_EB, 0.315325000E-14_EB/)
THERMO_DATA(100)%B(1:2,2)  = (/ 0.140646985E+06_EB,-0.243483700E+03_EB/)
THERMO_DATA(100)%H_F       =    156.700000_EB
THERMO_DATA(100)%SIGMA     =  5.180_EB ! GRM3
THERMO_DATA(100)%EPSOK     =   357.00_EB
THERMO_DATA(100)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(101)%FORMULA   = 'C4H7'
THERMO_DATA(101)%NAME      = 'C4H7'
THERMO_DATA(101)%POLY      = 'NASA7'
THERMO_DATA(101)%BANDS     = 2
THERMO_DATA(101)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.300000000E+04_EB/)
THERMO_DATA(101)%A(1:5,1)  = &
   (/ 0.286982540E+00_EB, 0.369644950E-01_EB,-0.862774410E-05_EB,-0.150518210E-07_EB, 0.898912630E-11_EB/)
THERMO_DATA(101)%B(1:2,1)  = (/ 0.205513010E+05_EB, 0.244844670E+02_EB/)
THERMO_DATA(101)%A(1:5,2)  = &
   (/ 0.119633920E+02_EB, 0.114253050E-01_EB, 0.789489090E-06_EB,-0.198588720E-08_EB, 0.368736450E-12_EB/)
THERMO_DATA(101)%B(1:2,2)  = (/ 0.169629770E+05_EB,-0.375429080E+02_EB/)
THERMO_DATA(101)%H_F       =   184.3991391_EB
THERMO_DATA(101)%SIGMA     =  5.176_EB ! GRM3
THERMO_DATA(101)%EPSOK     =   357.00_EB
THERMO_DATA(101)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(102)%FORMULA   = 'C4H8'
THERMO_DATA(102)%NAME      = '1-BUTENE'
THERMO_DATA(102)%POLY      = 'NASA9'
THERMO_DATA(102)%BANDS     = 2
THERMO_DATA(102)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(102)%A(1:7,1)  = &
   (/-0.272149201E+06_EB, 0.510007925E+04_EB,-0.318378625E+02_EB, 0.131775444E+00_EB,-0.152736000E-03_EB,&
      0.971476000E-07_EB,-0.256020000E-10_EB/)
THERMO_DATA(102)%B(1:2,1)  = (/-0.252309639E+05_EB, 0.200693211E+03_EB/)
THERMO_DATA(102)%A(1:7,2)  = &
   (/ 0.625794861E+07_EB,-0.266037631E+05_EB, 0.476492005E+02_EB,-0.438326700E-02_EB, 0.712884000E-06_EB,&
     -0.599102000E-10_EB, 0.205175000E-14_EB/)
THERMO_DATA(102)%B(1:2,2)  = (/ 0.156925266E+06_EB,-0.291386976E+03_EB/)
THERMO_DATA(102)%H_F       =     -0.540000_EB
THERMO_DATA(102)%SIGMA     =  5.176_EB ! GRM3
THERMO_DATA(102)%EPSOK     =   357.00_EB
THERMO_DATA(102)%PR        =  0.71_EB ! Assume N2

THERMO_DATA(103)%FORMULA   = 'C5H12'
THERMO_DATA(103)%NAME      = 'N-PENTANE'
THERMO_DATA(103)%POLY      = 'NASA9'
THERMO_DATA(103)%BANDS     = 2
THERMO_DATA(103)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(103)%A(1:7,1)  = &
   (/-0.276889463E+06_EB, 0.583428347E+04_EB,-0.361754148E+02_EB, 0.153333971E+00_EB,-0.152840000E-03_EB,&
      0.819109000E-07_EB,-0.179233000E-10_EB/)
THERMO_DATA(103)%B(1:2,1)  = (/-0.466537525E+05_EB, 0.226554405E+03_EB/)
THERMO_DATA(103)%A(1:7,2)  = &
   (/-0.253077929E+07_EB,-0.897259326E+04_EB, 0.453622326E+02_EB,-0.262699000E-02_EB, 0.313514000E-05_EB,&
     -0.531873000E-09_EB, 0.288690000E-13_EB/)
THERMO_DATA(103)%B(1:2,2)  = (/ 0.148461653E+05_EB,-0.251655038E+03_EB/)
THERMO_DATA(103)%H_F       =   -146.760000_EB
THERMO_DATA(103)%SIGMA     =  5.784_EB ! R-132
THERMO_DATA(103)%EPSOK     =   341.10_EB
THERMO_DATA(103)%PR        =  0.79_EB ! Hexane value
THERMO_DATA(103)%RADCAL_ID = 'N-HEPTANE'
THERMO_DATA(103)%LIQUID    = .TRUE.
THERMO_DATA(103)%T_L(1:2)  = (/150._EB,390._EB/)
THERMO_DATA(103)%A_L(3:6,1)= (/2454.7_EB,-6.8347_EB,0.025884_EB,-0.000015115_EB/)
THERMO_DATA(103)%H_V       = 370582.470209505_EB !J/kg
THERMO_DATA(103)%T_REF     = 298.15_EB !K
THERMO_DATA(103)%T_MELT    = 143.35_EB !K
THERMO_DATA(103)%T_BOIL    = 309.25_EB !K
THERMO_DATA(103)%DENSITY   = 621._EB !kg/m^3
THERMO_DATA(103)%FUEL      = .TRUE.
THERMO_DATA(103)%K         = 0.148_EB !W/m/K
THERMO_DATA(103)%MU        = 0.000245_EB !N.s/m^2
THERMO_DATA(103)%BETA      = 0.00163_EB !1/K

THERMO_DATA(104)%FORMULA   = 'C5H4O'
THERMO_DATA(104)%NAME      = 'PYRYLIUM'
THERMO_DATA(104)%POLY      = 'NASA7'
THERMO_DATA(104)%BANDS     = 2
THERMO_DATA(104)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.300000000E+04_EB/)
THERMO_DATA(104)%A(1:5,1)  = &
   (/-0.239153550E+01_EB, 0.473636800E-01_EB,-0.307281710E-04_EB, 0.780315520E-08_EB,-0.251457290E-12_EB/)
THERMO_DATA(104)%B(1:2,1)  = (/ 0.437401520E+04_EB, 0.345943370E+02_EB/)
THERMO_DATA(104)%A(1:5,2)  = &
   (/ 0.479272420E+01_EB, 0.292216800E-01_EB,-0.159974860E-04_EB, 0.420690490E-08_EB,-0.428151790E-12_EB/)
THERMO_DATA(104)%B(1:2,2)  = (/ 0.228492860E+04_EB,-0.301318930E+01_EB/)
THERMO_DATA(104)%H_F       =    45.81246336_EB
THERMO_DATA(104)%SIGMA     =  5.290_EB ! GRM3
THERMO_DATA(104)%EPSOK     =   464.80_EB
THERMO_DATA(104)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(105)%FORMULA   = 'C5H5'
THERMO_DATA(105)%NAME      = 'CYCLOPENTADIENIDE'
THERMO_DATA(105)%POLY      = 'NASA7'
THERMO_DATA(105)%BANDS     = 2
THERMO_DATA(105)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(105)%A(1:5,1)  = &
   (/-0.959037180E+00_EB, 0.313968590E-01_EB, 0.267237940E-04_EB,-0.689418720E-07_EB, 0.333018560E-10_EB/)
THERMO_DATA(105)%B(1:2,1)  = (/ 0.307291200E+05_EB, 0.290728160E+02_EB/)
THERMO_DATA(105)%A(1:5,2)  = &
   (/ 0.108440660E+02_EB, 0.153928370E-01_EB,-0.556304210E-05_EB, 0.901893710E-09_EB,-0.541565310E-13_EB/)
THERMO_DATA(105)%B(1:2,2)  = (/ 0.269005660E+05_EB,-0.352549480E+01_EB/)
THERMO_DATA(105)%H_F       =   265.6827887_EB
THERMO_DATA(105)%SIGMA     =  5.180_EB ! GRM3
THERMO_DATA(105)%EPSOK     =   357.00_EB
THERMO_DATA(105)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(106)%FORMULA   = 'C5H5O'
THERMO_DATA(106)%NAME      = 'C5H5O'
THERMO_DATA(106)%POLY      = 'NASA7'
THERMO_DATA(106)%BANDS     = 2
THERMO_DATA(106)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.300000000E+04_EB/)
THERMO_DATA(106)%A(1:5,1)  = &
   (/ 0.479272420E+01_EB, 0.292216800E-01_EB,-0.159974860E-04_EB, 0.420690490E-08_EB,-0.428151790E-12_EB/)
THERMO_DATA(106)%B(1:2,1)  = (/ 0.228492860E+04_EB,-0.301318930E+01_EB/)
THERMO_DATA(106)%A(1:5,2)  = &
   (/ 0.126064220E+02_EB, 0.167472600E-01_EB,-0.610985740E-05_EB, 0.996765570E-09_EB,-0.601132010E-13_EB/)
THERMO_DATA(106)%B(1:2,2)  = (/ 0.393134550E+04_EB,-0.426042770E+02_EB/)
THERMO_DATA(106)%H_F       =    40.57018134_EB
THERMO_DATA(106)%SIGMA     =  5.290_EB ! GRM3
THERMO_DATA(106)%EPSOK     =   464.80_EB
THERMO_DATA(106)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(107)%FORMULA   = 'C5H6'
THERMO_DATA(107)%NAME      = 'CYCLOPENTENE'
THERMO_DATA(107)%POLY      = 'NASA9'
THERMO_DATA(107)%BANDS     = 2
THERMO_DATA(107)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(107)%A(1:7,1)  = &
   (/-0.188625973E+06_EB, 0.473822087E+04_EB,-0.388895801E+02_EB, 0.166743853E+00_EB,-0.214115000E-03_EB,&
      0.143813000E-06_EB,-0.390648000E-10_EB/)
THERMO_DATA(107)%B(1:2,1)  = (/-0.566702201E+04_EB, 0.227989856E+03_EB/)
THERMO_DATA(107)%A(1:7,2)  = &
   (/ 0.442847819E+07_EB,-0.212354798E+05_EB, 0.430981901E+02_EB,-0.391478300E-02_EB, 0.731185000E-06_EB,&
     -0.732724000E-10_EB, 0.304440000E-14_EB/)
THERMO_DATA(107)%B(1:2,2)  = (/ 0.138254278E+06_EB,-0.260595968E+03_EB/)
THERMO_DATA(107)%H_F       =    134.300000_EB
THERMO_DATA(107)%SIGMA     =  5.180_EB ! GRM3
THERMO_DATA(107)%EPSOK     =   357.00_EB
THERMO_DATA(107)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(108)%FORMULA   = 'C6H12'
THERMO_DATA(108)%NAME      = 'CYCLOHEXANE'
THERMO_DATA(108)%POLY      = 'NASA9'
THERMO_DATA(108)%BANDS     = 2
THERMO_DATA(108)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(108)%A(1:7,1)  = &
   (/-0.567998704E+06_EB, 0.103423870E+05_EB,-0.680004125E+02_EB, 0.238779766E+00_EB,-0.251189000E-03_EB,&
      0.142529000E-06_EB,-0.340783000E-10_EB/)
THERMO_DATA(108)%B(1:2,1)  = (/-0.640463516E+05_EB, 0.393480821E+03_EB/)
THERMO_DATA(108)%A(1:7,2)  = &
   (/ 0.522514947E+07_EB,-0.336419458E+05_EB, 0.717460747E+02_EB,-0.669897900E-02_EB, 0.131844000E-05_EB,&
     -0.139079000E-09_EB, 0.606010000E-14_EB/)
THERMO_DATA(108)%B(1:2,2)  = (/ 0.173253761E+06_EB,-0.454681417E+03_EB/)
THERMO_DATA(108)%H_F       =   -123.300000_EB
THERMO_DATA(108)%SIGMA     =  6.182_EB ! R-132
THERMO_DATA(108)%EPSOK     =   297.10_EB
THERMO_DATA(108)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(109)%FORMULA   = 'C6H14'
THERMO_DATA(109)%NAME      = 'N-HEXANE'
THERMO_DATA(109)%POLY      = 'NASA9'
THERMO_DATA(109)%BANDS     = 2
THERMO_DATA(109)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(109)%A(1:7,1)  = &
   (/-0.581592670E+06_EB, 0.107909772E+05_EB,-0.663394703E+02_EB, 0.252371515E+00_EB,-0.290434000E-03_EB,&
      0.180220000E-06_EB,-0.461722000E-10_EB/)
THERMO_DATA(109)%B(1:2,1)  = (/-0.727154457E+05_EB, 0.393828354E+03_EB/)
THERMO_DATA(109)%A(1:7,2)  = &
   (/-0.310662568E+07_EB,-0.734608792E+04_EB, 0.469413176E+02_EB, 0.169396400E-02_EB, 0.206900000E-05_EB,&
     -0.421214000E-09_EB, 0.245235000E-13_EB/)
THERMO_DATA(109)%B(1:2,2)  = (/ 0.523750312E+03_EB,-0.254996772E+03_EB/)
THERMO_DATA(109)%H_F       =   -166.920000_EB
THERMO_DATA(109)%SIGMA     =  5.949_EB ! R-132
THERMO_DATA(109)%EPSOK     =   399.30_EB
THERMO_DATA(109)%PR        =  0.79_EB ! Martinez'
THERMO_DATA(109)%RADCAL_ID = 'N-HEPTANE'
THERMO_DATA(109)%LIQUID    = .TRUE.
THERMO_DATA(109)%T_L(1:2)  = (/177.86_EB,300._EB/)
THERMO_DATA(109)%A_L(1:7,1)= (/7721016.13_EB,-224929.8616_EB,2717.090647_EB,-16.98251992_EB,0.0590721518_EB, &
                               -0.0001074528475_EB,0.0000000802423827_EB/)
THERMO_DATA(109)%CP_UNIT   = 8314.472_EB / 86.17536_EB !J/kg/K
THERMO_DATA(109)%H_V       = 444304.310724934_EB !J/kg
THERMO_DATA(109)%T_REF     = 178.1_EB !K
THERMO_DATA(109)%T_MELT    = 178.1_EB !K
THERMO_DATA(109)%T_BOIL    = 342.44_EB !K
THERMO_DATA(109)%DENSITY   = 659._EB !kg/m^3
THERMO_DATA(109)%FUEL      = .TRUE.
THERMO_DATA(109)%K         = 0.124_EB !W/m/K
THERMO_DATA(109)%MU        = 0.000297_EB !N.s/m^2
THERMO_DATA(109)%BETA      = 0.00138_EB !1/K

 
THERMO_DATA(110)%FORMULA   = 'C6H2'
THERMO_DATA(110)%NAME      = 'TRIACETYLENE'
THERMO_DATA(110)%POLY      = 'NASA9'
THERMO_DATA(110)%BANDS     = 2
THERMO_DATA(110)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(110)%A(1:7,1)  = &
   (/ 0.290372296E+06_EB,-0.492975150E+04_EB, 0.318932321E+02_EB,-0.311944730E-01_EB, 0.432576000E-04_EB,&
     -0.273252000E-07_EB, 0.667445000E-11_EB/)
THERMO_DATA(110)%B(1:2,1)  = (/ 0.101189868E+06_EB,-0.153059301E+03_EB/)
THERMO_DATA(110)%A(1:7,2)  = &
   (/ 0.259284858E+07_EB,-0.108336198E+05_EB, 0.284745950E+02_EB,-0.187672800E-02_EB, 0.341213000E-06_EB,&
     -0.333739000E-10_EB, 0.135685000E-14_EB/)
THERMO_DATA(110)%B(1:2,2)  = (/ 0.141851729E+06_EB,-0.149485349E+03_EB/)
THERMO_DATA(110)%H_F       =    670.000000_EB
THERMO_DATA(110)%SIGMA     =  5.180_EB ! GRM3
THERMO_DATA(110)%EPSOK     =   357.00_EB
THERMO_DATA(110)%PR        =  0.71_EB ! Assume N2
THERMO_DATA(110)%RADCAL_ID = 'PROPYLENE'
 
THERMO_DATA(111)%FORMULA   = 'C6H3'
THERMO_DATA(111)%NAME      = 'C6H3'
THERMO_DATA(111)%POLY      = 'NASA7'
THERMO_DATA(111)%BANDS     = 2
THERMO_DATA(111)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.300000000E+04_EB/)
THERMO_DATA(111)%A(1:5,1)  = &
   (/ 0.117906190E+01_EB, 0.555473600E-01_EB,-0.730761680E-04_EB, 0.520767360E-07_EB,-0.150469640E-10_EB/)
THERMO_DATA(111)%B(1:2,1)  = (/ 0.856473120E+05_EB, 0.191791990E+02_EB/)
THERMO_DATA(111)%A(1:5,2)  = &
   (/ 0.581883430E+01_EB, 0.279334080E-01_EB,-0.178254270E-04_EB, 0.537025360E-08_EB,-0.617076270E-12_EB/)
THERMO_DATA(111)%B(1:2,2)  = (/ 0.851882500E+05_EB,-0.921478270E+00_EB/)
THERMO_DATA(111)%H_F       =   730.9912636_EB
THERMO_DATA(111)%SIGMA     =  5.180_EB ! GRM3
THERMO_DATA(111)%EPSOK     =   357.00_EB
THERMO_DATA(111)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(112)%FORMULA   = 'C6H4'
THERMO_DATA(112)%NAME      = 'BENZYNE'
THERMO_DATA(112)%POLY      = 'NASA7'
THERMO_DATA(112)%BANDS     = 2
THERMO_DATA(112)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.300000000E+04_EB/)
THERMO_DATA(112)%A(1:5,1)  = &
   (/-0.309912680E+01_EB, 0.540305640E-01_EB,-0.408390040E-04_EB, 0.107388370E-07_EB, 0.980784900E-12_EB/)
THERMO_DATA(112)%B(1:2,1)  = (/ 0.522057110E+05_EB, 0.374152070E+02_EB/)
THERMO_DATA(112)%A(1:5,2)  = &
   (/ 0.138492090E+02_EB, 0.788079200E-02_EB, 0.182438360E-05_EB,-0.211691660E-08_EB, 0.374599770E-12_EB/)
THERMO_DATA(112)%B(1:2,2)  = (/ 0.474463400E+05_EB,-0.504049530E+02_EB/)
THERMO_DATA(112)%H_F       =   443.5277835_EB
THERMO_DATA(112)%SIGMA     =  5.290_EB ! GRM3
THERMO_DATA(112)%EPSOK     =   464.80_EB
THERMO_DATA(112)%PR        =  0.71_EB ! Assume N2
THERMO_DATA(112)%LIQUID    = .TRUE.
THERMO_DATA(112)%T_L(1:2)  = (/278.68_EB,500._EB/)
THERMO_DATA(112)%A_L(1:7,1)= (/-2291003.94_EB,36920.5816_EB,-182.0019971_EB,0.2634137216_EB,0.000974258592_EB,&
                               -0.00000330790915_EB,0.000000002888191394_EB/)
THERMO_DATA(112)%CP_UNIT   = 8314.472_EB / 78.11184_EB
THERMO_DATA(112)%H_V       = 477460.8131_EB !J/kg
THERMO_DATA(112)%T_REF     = 278.64_EB !K
THERMO_DATA(112)%T_MELT    = 278.64_EB !K
THERMO_DATA(112)%T_BOIL    = 353.3_EB !K
THERMO_DATA(112)%DENSITY   = 876.50_EB !kg/m^3
THERMO_DATA(112)%MU        = 0.00601_EB  !N.s/m^2
THERMO_DATA(112)%K         = 0.167_EB !W/m/K
THERMO_DATA(112)%BETA      = 0.00114_EB !1/K
THERMO_DATA(112)%FUEL      = .TRUE.

 
THERMO_DATA(113)%FORMULA   = 'C6H4'
THERMO_DATA(113)%NAME      = 'BUTALENE'
THERMO_DATA(113)%POLY      = 'NASA7'
THERMO_DATA(113)%BANDS     = 2
THERMO_DATA(113)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.300000000E+04_EB/)
THERMO_DATA(113)%A(1:5,1)  = &
   (/ 0.295902250E+00_EB, 0.580533180E-01_EB,-0.677667560E-04_EB, 0.433767620E-07_EB,-0.114188640E-10_EB/)
THERMO_DATA(113)%B(1:2,1)  = (/ 0.600013710E+05_EB, 0.223189700E+02_EB/)
THERMO_DATA(113)%A(1:5,2)  = &
   (/ 0.127151820E+02_EB, 0.138396620E-01_EB,-0.437654400E-05_EB, 0.315416360E-09_EB, 0.466190260E-13_EB/)
THERMO_DATA(113)%B(1:2,2)  = (/ 0.570311480E+05_EB,-0.394646000E+02_EB/)
THERMO_DATA(113)%H_F       =   516.7568809_EB
THERMO_DATA(113)%SIGMA     =  5.349_EB ! GRM3
THERMO_DATA(113)%EPSOK     =   412.30_EB
THERMO_DATA(113)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(114)%FORMULA   = 'C6H5'
THERMO_DATA(114)%NAME      = 'PHENYL'
THERMO_DATA(114)%POLY      = 'NASA9'
THERMO_DATA(114)%BANDS     = 2
THERMO_DATA(114)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(114)%A(1:7,1)  = &
   (/-0.121127825E+06_EB, 0.352904558E+04_EB,-0.311690342E+02_EB, 0.146755063E+00_EB,-0.183140000E-03_EB,&
      0.119258000E-06_EB,-0.314927000E-10_EB/)
THERMO_DATA(114)%B(1:2,1)  = (/ 0.242097293E+05_EB, 0.186879995E+03_EB/)
THERMO_DATA(114)%A(1:7,2)  = &
   (/ 0.367027923E+07_EB,-0.189460121E+05_EB, 0.418058182E+02_EB,-0.350391400E-02_EB, 0.656182000E-06_EB,&
     -0.659471000E-10_EB, 0.274809000E-14_EB/)
THERMO_DATA(114)%B(1:2,2)  = (/ 0.147674463E+06_EB,-0.247530114E+03_EB/)
THERMO_DATA(114)%H_F       =    337.200000_EB
THERMO_DATA(114)%SIGMA     =  5.290_EB ! GRM3
THERMO_DATA(114)%EPSOK     =   464.80_EB
THERMO_DATA(114)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(115)%FORMULA   = 'C6H5O'
THERMO_DATA(115)%NAME      = 'PHENOLATE'
THERMO_DATA(115)%POLY      = 'NASA9'
THERMO_DATA(115)%BANDS     = 2
THERMO_DATA(115)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(115)%A(1:7,1)  = &
   (/-0.129226422E+06_EB, 0.340674068E+04_EB,-0.291136736E+02_EB, 0.145918038E+00_EB,-0.178020000E-03_EB,&
      0.113862000E-06_EB,-0.296714000E-10_EB/)
THERMO_DATA(115)%B(1:2,1)  = (/-0.105502676E+05_EB, 0.177068201E+03_EB/)
THERMO_DATA(115)%A(1:7,2)  = &
   (/ 0.367864034E+07_EB,-0.197298081E+05_EB, 0.454118441E+02_EB,-0.375106400E-02_EB, 0.711445000E-06_EB,&
     -0.723333000E-10_EB, 0.304564000E-14_EB/)
THERMO_DATA(115)%B(1:2,2)  = (/ 0.116359596E+06_EB,-0.268105854E+03_EB/)
THERMO_DATA(115)%H_F       =     47.700000_EB
THERMO_DATA(115)%SIGMA     =  5.290_EB ! GRM3
THERMO_DATA(115)%EPSOK     =   464.80_EB
THERMO_DATA(115)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(116)%FORMULA   = 'C6H5OH'
THERMO_DATA(116)%NAME      = 'PHENOL'
THERMO_DATA(116)%POLY      = 'NASA9'
THERMO_DATA(116)%BANDS     = 2
THERMO_DATA(116)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(116)%A(1:7,1)  = &
   (/-0.120941814E+06_EB, 0.337829227E+04_EB,-0.299184615E+02_EB, 0.156780294E+00_EB,-0.197094000E-03_EB,&
      0.129182000E-06_EB,-0.342435000E-10_EB/)
THERMO_DATA(116)%B(1:2,1)  = (/-0.277938702E+05_EB, 0.179970898E+03_EB/)
THERMO_DATA(116)%A(1:7,2)  = &
   (/ 0.446208157E+07_EB,-0.216552103E+05_EB, 0.481501505E+02_EB,-0.356828200E-02_EB, 0.632718000E-06_EB,&
     -0.603991000E-10_EB, 0.239917000E-14_EB/)
THERMO_DATA(116)%B(1:2,2)  = (/ 0.111372620E+06_EB,-0.286045445E+03_EB/)
THERMO_DATA(116)%H_F       =    -96.399000_EB
THERMO_DATA(116)%SIGMA     =  5.290_EB ! GRM3
THERMO_DATA(116)%EPSOK     =   464.80_EB
THERMO_DATA(116)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(117)%FORMULA   = 'C6H6'
THERMO_DATA(117)%NAME      = 'BENZENE'
THERMO_DATA(117)%POLY      = 'NASA9'
THERMO_DATA(117)%BANDS     = 2
THERMO_DATA(117)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(117)%A(1:7,1)  = &
   (/-0.167734090E+06_EB, 0.440450004E+04_EB,-0.371737791E+02_EB, 0.164050956E+00_EB,-0.202081000E-03_EB,&
      0.130792000E-06_EB,-0.344428000E-10_EB/)
THERMO_DATA(117)%B(1:2,1)  = (/-0.103545540E+05_EB, 0.216985334E+03_EB/)
THERMO_DATA(117)%A(1:7,2)  = &
   (/ 0.453857572E+07_EB,-0.226050255E+05_EB, 0.469400730E+02_EB,-0.420667700E-02_EB, 0.790799000E-06_EB,&
     -0.796830000E-10_EB, 0.332821000E-14_EB/)
THERMO_DATA(117)%B(1:2,2)  = (/ 0.139146469E+06_EB,-0.286875133E+03_EB/)
THERMO_DATA(117)%H_F       =     82.880000_EB
THERMO_DATA(117)%SIGMA     =  5.439_EB ! R-132
THERMO_DATA(117)%EPSOK     =   412.30_EB
THERMO_DATA(117)%PR        =  1.50_EB ! Martinez
THERMO_DATA(117)%RADCAL_ID = 'TOLUENE'
 
THERMO_DATA(118)%FORMULA   = 'C7H16'
THERMO_DATA(118)%NAME      = 'N-HEPTANE'
THERMO_DATA(118)%POLY      = 'NASA9'
THERMO_DATA(118)%BANDS     = 2
THERMO_DATA(118)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(118)%A(1:7,1)  = &
   (/-0.612743289E+06_EB, 0.118408544E+05_EB,-0.748718860E+02_EB, 0.291846605E+00_EB,-0.341680000E-03_EB,&
      0.215929000E-06_EB,-0.565585000E-10_EB/)
THERMO_DATA(118)%B(1:2,1)  = (/-0.801340894E+05_EB, 0.440721332E+03_EB/)
THERMO_DATA(118)%A(1:7,2)  = &
   (/ 0.913563247E+07_EB,-0.392331969E+05_EB, 0.788978085E+02_EB,-0.465425200E-02_EB, 0.207177000E-05_EB,&
     -0.344254000E-09_EB, 0.197683000E-13_EB/)
THERMO_DATA(118)%B(1:2,2)  = (/ 0.205070829E+06_EB,-0.485110402E+03_EB/)
THERMO_DATA(118)%H_F       =   -187.780000_EB
THERMO_DATA(118)%SIGMA     =  4.701_EB ! R-132
THERMO_DATA(118)%EPSOK     =   205.78_EB
THERMO_DATA(118)%PR        =  0.83_EB ! Martinez
THERMO_DATA(118)%RADCAL_ID = 'N-HEPTANE'
THERMO_DATA(118)%LIQUID    = .TRUE.
THERMO_DATA(118)%T_L(1:2)  = (/182.58_EB,380._EB/)
THERMO_DATA(118)%A_L(1:7,1)= (/1759947.367_EB,-37493.9679_EB,396.30649_EB,-2.117827431_EB,0.00682824867_EB,&
                               -0.00001131862116_EB,0.00000000773686013_EB/)
THERMO_DATA(118)%CP_UNIT   = 8314.472_EB / 100.20194_EB !J/kg/K
THERMO_DATA(118)%H_V       = 441630.258757732_EB !J/kg
THERMO_DATA(118)%T_REF     = 182.58_EB !K
THERMO_DATA(118)%T_MELT    = 182.58_EB !K
THERMO_DATA(118)%T_BOIL    = 371.50_EB !K
THERMO_DATA(118)%DENSITY   = 684._EB !kg/m^3
THERMO_DATA(118)%FUEL      = .TRUE.
THERMO_DATA(118)%K         = 0.140_EB !W/m/K
THERMO_DATA(118)%MU        = 0.000376_EB !N.s/m^2
THERMO_DATA(118)%BETA      = 0.00124_EB !1/K

THERMO_DATA(119)%FORMULA   = 'C7H8'
THERMO_DATA(119)%NAME      = 'TOLUENE'
THERMO_DATA(119)%POLY      = 'NASA9'
THERMO_DATA(119)%BANDS     = 2
THERMO_DATA(119)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(119)%A(1:7,1)  = &
   (/-0.287796222E+06_EB, 0.613394152E+04_EB,-0.457470676E+02_EB, 0.193689572E+00_EB,-0.230431000E-03_EB,&
      0.145930000E-06_EB,-0.379080000E-10_EB/)
THERMO_DATA(119)%B(1:2,1)  = (/-0.230840250E+05_EB, 0.269391504E+03_EB/)
THERMO_DATA(119)%A(1:7,2)  = &
   (/ 0.618453835E+07_EB,-0.299028406E+05_EB, 0.598200597E+02_EB,-0.569698400E-02_EB, 0.108075000E-05_EB,&
     -0.109870000E-09_EB, 0.462474000E-14_EB/)
THERMO_DATA(119)%B(1:2,2)  = (/ 0.178204786E+06_EB,-0.369808225E+03_EB/)
THERMO_DATA(119)%H_F       =     50.170000_EB
THERMO_DATA(119)%SIGMA     =  5.698_EB ! Benzene
THERMO_DATA(119)%EPSOK     =   480.00_EB
THERMO_DATA(119)%PR        =  0.71_EB ! Assume N2
THERMO_DATA(119)%RADCAL_ID = 'TOLUENE'
THERMO_DATA(119)%LIQUID    = .TRUE.
THERMO_DATA(119)%T(1:2)    = (/178.15_EB,500._EB/)
THERMO_DATA(119)%A_L(1:7,1)= (/-3713549.51_EB,77725.2903_EB,-631.226986_EB,2.724391982_EB,-0.00610353508_EB,&
                              0.0000070224219_EB,-0.00000000311371568_EB/)
THERMO_DATA(119)%CP_UNIT   = 8314.472_EB / 92.13842_EB !J/kg/K
THERMO_DATA(119)%H_V       = 491861.689063827_EB !J/kg
THERMO_DATA(119)%T_REF     = 178.1_EB !K
THERMO_DATA(119)%T_MELT    = 178.1_EB !K
THERMO_DATA(119)%T_BOIL    = 383.8_EB !K
THERMO_DATA(119)%DENSITY   = 867._EB !kg/m^3
THERMO_DATA(119)%FUEL      = .TRUE.
THERMO_DATA(119)%K         = 0.151_EB !W/m/K
THERMO_DATA(119)%MU        = 0.000550_EB  !N.s/m^2
THERMO_DATA(119)%BETA = 0.00108_EB !1/K

THERMO_DATA(120)%FORMULA   = 'C8H18'
THERMO_DATA(120)%NAME      = 'N-OCTANE'
THERMO_DATA(120)%POLY      = 'NASA9'
THERMO_DATA(120)%BANDS     = 2
THERMO_DATA(120)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(120)%A(1:7,1)  = &
   (/-0.698664715E+06_EB, 0.133850110E+05_EB,-0.841516592E+02_EB, 0.327193666E+00_EB,-0.377721000E-03_EB,&
      0.233984000E-06_EB,-0.601089000E-10_EB/)
THERMO_DATA(120)%B(1:2,1)  = (/-0.902622325E+05_EB, 0.493922214E+03_EB/)
THERMO_DATA(120)%A(1:7,2)  = &
   (/ 0.636540695E+07_EB,-0.310536466E+05_EB, 0.696916234E+02_EB, 0.104805960E-01_EB,-0.412962000E-05_EB,&
      0.554323000E-09_EB,-0.265144000E-13_EB/)
THERMO_DATA(120)%B(1:2,2)  = (/ 0.150096878E+06_EB,-0.416989565E+03_EB/)
THERMO_DATA(120)%H_F       =   -208.750000_EB
THERMO_DATA(120)%SIGMA     =  4.892_EB ! R-132
THERMO_DATA(120)%EPSOK     =   231.60_EB
THERMO_DATA(120)%PR        =  0.64_EB ! Martinez
THERMO_DATA(120)%RADCAL_ID = 'N-HEPTANE'
THERMO_DATA(120)%LIQUID    = .TRUE.
THERMO_DATA(120)%T_L(1:2)  = (/216.37_EB,400._EB/)
THERMO_DATA(120)%A_L(1:7,1)= (/-16833148.26_EB,353261.508_EB,-2967.857531_EB,13.16703807_EB,-0.0318682241_EB, &
                              0.0000407574801_EB,-0.00000002153277285_EB/)
THERMO_DATA(120)%CP_UNIT   = 8314.472_EB / 112.21264_EB !J/kg/K
THERMO_DATA(120)%H_V       = 363394.3607_EB !J/kg
THERMO_DATA(120)%T_REF     = 298.15_EB !K
THERMO_DATA(120)%T_MELT    = 216.3_EB !K
THERMO_DATA(120)%T_BOIL    = 398.44_EB !K
THERMO_DATA(120)%DENSITY   = 703._EB !kg/m^3
THERMO_DATA(120)%FUEL      = .TRUE.
THERMO_DATA(120)%K         = 0.147_EB !W/m/K
THERMO_DATA(120)%MU        = 0.00051_EB !N.s/m^2
THERMO_DATA(120)%BETA      = 0.00114_EB !1/K

THERMO_DATA(121)%FORMULA   = 'CBr4'
THERMO_DATA(121)%NAME      = 'CARBON TETRABROMIDE'
THERMO_DATA(121)%POLY      = 'NASA9'
THERMO_DATA(121)%BANDS     = 2
THERMO_DATA(121)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(121)%A(1:7,1)  = &
   (/ 0.102308374E+06_EB,-0.173560071E+04_EB, 0.165131791E+02_EB,-0.314766500E-02_EB, 0.292414000E-06_EB,&
      0.136061000E-08_EB,-0.643176000E-12_EB/)
THERMO_DATA(121)%B(1:2,1)  = (/ 0.150050254E+05_EB,-0.553647676E+02_EB/)
THERMO_DATA(121)%A(1:7,2)  = &
   (/-0.205978507E+06_EB,-0.104851700E+03_EB, 0.130777255E+02_EB,-0.308686000E-04_EB, 0.677531000E-08_EB,&
     -0.772184000E-12_EB, 0.355922000E-16_EB/)
THERMO_DATA(121)%B(1:2,2)  = (/ 0.561589394E+04_EB,-0.328378763E+02_EB/)
THERMO_DATA(121)%H_F       =     79.500000_EB
THERMO_DATA(121)%SIGMA     =  6.120_EB ! R-132
THERMO_DATA(121)%EPSOK     =   442.00_EB
THERMO_DATA(121)%PR        =  0.73_EB ! R-132
 
THERMO_DATA(122)%FORMULA   = 'CCl'
THERMO_DATA(122)%NAME      = 'CHLOROMETHYLIDYNE'
THERMO_DATA(122)%POLY      = 'NASA9'
THERMO_DATA(122)%BANDS     = 2
THERMO_DATA(122)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(122)%A(1:7,1)  = &
   (/ 0.170707005E+05_EB,-0.146380350E+02_EB, 0.233410825E+01_EB, 0.720209900E-02_EB,-0.103412000E-04_EB,&
      0.722811000E-08_EB,-0.198512000E-11_EB/)
THERMO_DATA(122)%B(1:2,1)  = (/ 0.512335030E+05_EB, 0.120082039E+02_EB/)
THERMO_DATA(122)%A(1:7,2)  = &
   (/ 0.590050763E+06_EB,-0.207531146E+04_EB, 0.688001723E+01_EB,-0.129479600E-02_EB, 0.388314000E-06_EB,&
     -0.500698000E-10_EB, 0.221823000E-14_EB/)
THERMO_DATA(122)%B(1:2,2)  = (/ 0.635892205E+05_EB,-0.161066447E+02_EB/)
THERMO_DATA(122)%H_F       =    432.611058_EB
THERMO_DATA(122)%SIGMA     =  4.065_EB ! R-132
THERMO_DATA(122)%EPSOK     =   157.80_EB
THERMO_DATA(122)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(123)%FORMULA   = 'CCl2'
THERMO_DATA(123)%NAME      = 'DICHLOROMETHYLENE'
THERMO_DATA(123)%POLY      = 'NASA9'
THERMO_DATA(123)%BANDS     = 2
THERMO_DATA(123)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(123)%A(1:7,1)  = &
   (/ 0.750962315E+05_EB,-0.103472856E+04_EB, 0.806170454E+01_EB, 0.148713400E-02_EB,-0.456482000E-05_EB,&
      0.395489000E-08_EB,-0.116620000E-11_EB/)
THERMO_DATA(123)%B(1:2,1)  = (/ 0.305240929E+05_EB,-0.173969169E+02_EB/)
THERMO_DATA(123)%A(1:7,2)  = &
   (/-0.643745517E+07_EB, 0.195841335E+05_EB,-0.160403863E+02_EB, 0.123883390E-01_EB,-0.301337000E-05_EB,&
      0.347347000E-09_EB,-0.155327000E-13_EB/)
THERMO_DATA(123)%B(1:2,2)  = (/-0.996124216E+05_EB, 0.155694931E+03_EB/)
THERMO_DATA(123)%H_F       =    222.940147_EB
THERMO_DATA(123)%SIGMA     =  4.692_EB ! R-132
THERMO_DATA(123)%EPSOK     =   213.00_EB
THERMO_DATA(123)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(124)%FORMULA   = 'CCl3'
THERMO_DATA(124)%NAME      = 'TRICHLOROMETHYL RADICAL'
THERMO_DATA(124)%POLY      = 'NASA9'
THERMO_DATA(124)%BANDS     = 2
THERMO_DATA(124)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(124)%A(1:7,1)  = &
   (/ 0.341447165E+05_EB,-0.554796973E+03_EB, 0.684554439E+01_EB, 0.124200650E-01_EB,-0.203690000E-04_EB,&
      0.155498000E-07_EB,-0.456894000E-11_EB/)
THERMO_DATA(124)%B(1:2,1)  = (/ 0.938856882E+04_EB,-0.714359847E+01_EB/)
THERMO_DATA(124)%A(1:7,2)  = &
   (/-0.542757254E+06_EB, 0.680902062E+03_EB, 0.904772362E+01_EB, 0.132428000E-03_EB, 0.630126000E-07_EB,&
     -0.265664000E-10_EB, 0.210567000E-14_EB/)
THERMO_DATA(124)%B(1:2,2)  = (/ 0.386621615E+03_EB,-0.152874585E+02_EB/)
THERMO_DATA(124)%H_F       =     71.128000_EB
THERMO_DATA(124)%SIGMA     =  5.320_EB ! R-132
THERMO_DATA(124)%EPSOK     =   268.00_EB
THERMO_DATA(124)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(125)%FORMULA   = 'CCl4'
THERMO_DATA(125)%NAME      = 'CARBON TETRACHLORIDE'
THERMO_DATA(125)%POLY      = 'NASA9'
THERMO_DATA(125)%BANDS     = 2
THERMO_DATA(125)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(125)%A(1:7,1)  = &
   (/ 0.109338563E+06_EB,-0.186173185E+04_EB, 0.144963247E+02_EB, 0.394948500E-02_EB,-0.101081000E-04_EB,&
      0.864551000E-08_EB,-0.264237000E-11_EB/)
THERMO_DATA(125)%B(1:2,1)  = (/-0.494800623E+04_EB,-0.518028475E+02_EB/)
THERMO_DATA(125)%A(1:7,2)  = &
   (/-0.304307825E+06_EB,-0.216817049E+03_EB, 0.131613239E+02_EB,-0.643112000E-04_EB, 0.141648000E-07_EB,&
     -0.161934000E-11_EB, 0.748397000E-16_EB/)
THERMO_DATA(125)%B(1:2,2)  = (/-0.151232007E+05_EB,-0.399684430E+02_EB/)
THERMO_DATA(125)%H_F       =    -95.600000_EB
THERMO_DATA(125)%SIGMA     =  5.947_EB ! R-132
THERMO_DATA(125)%EPSOK     =   322.70_EB
THERMO_DATA(125)%PR        =  0.73_EB ! R-132
 
THERMO_DATA(126)%FORMULA   = 'Cd'
THERMO_DATA(126)%NAME      = 'CADMIUM'
THERMO_DATA(126)%POLY      = 'NASA9'
THERMO_DATA(126)%BANDS     = 3
THERMO_DATA(126)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(126)%A(1:7,1)  = &
   (/-0.108175000E-03_EB, 0.181643000E-05_EB, 0.249999999E+01_EB, 0.312999000E-10_EB,-0.460071000E-13_EB,&
      0.340705000E-16_EB,-0.998950000E-20_EB/)
THERMO_DATA(126)%B(1:2,1)  = (/ 0.127009977E+05_EB, 0.593154976E+01_EB/)
THERMO_DATA(126)%A(1:7,2)  = &
   (/-0.269975747E+06_EB, 0.786600114E+03_EB, 0.162816908E+01_EB, 0.459412000E-03_EB,-0.115042000E-06_EB,&
      0.107484000E-10_EB, 0.879020000E-16_EB/)
THERMO_DATA(126)%B(1:2,2)  = (/ 0.767514826E+04_EB, 0.122000605E+02_EB/)
THERMO_DATA(126)%A(1:7,3)  = &
   (/-0.133628429E+10_EB, 0.932094911E+06_EB,-0.249095622E+03_EB, 0.330287860E-01_EB,-0.220038000E-05_EB,&
      0.742571000E-10_EB,-0.102673000E-14_EB/)
THERMO_DATA(126)%B(1:2,3)  = (/-0.726752899E+07_EB, 0.216794611E+04_EB/)
THERMO_DATA(126)%H_F       =    111.800000_EB
THERMO_DATA(126)%SIGMA     =  2.606_EB ! R-132
THERMO_DATA(126)%EPSOK     =  1227.00_EB
THERMO_DATA(126)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(127)%FORMULA   = 'CF'
THERMO_DATA(127)%NAME      = 'FLUOROMETHYLIDYNE'
THERMO_DATA(127)%POLY      = 'NASA9'
THERMO_DATA(127)%BANDS     = 2
THERMO_DATA(127)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(127)%A(1:7,1)  = &
   (/-0.458278668E+05_EB, 0.797263589E+03_EB,-0.136493632E+01_EB, 0.131235940E-01_EB,-0.145701000E-04_EB,&
      0.825328000E-08_EB,-0.189635000E-11_EB/)
THERMO_DATA(127)%B(1:2,1)  = (/ 0.243825962E+05_EB, 0.324806528E+02_EB/)
THERMO_DATA(127)%A(1:7,2)  = &
   (/-0.132980710E+06_EB,-0.121434089E+03_EB, 0.445241362E+01_EB, 0.129379000E-03_EB,-0.367055000E-07_EB,&
      0.659021000E-11_EB,-0.373126000E-15_EB/)
THERMO_DATA(127)%B(1:2,2)  = (/ 0.281593411E+05_EB,-0.664046873E+00_EB/)
THERMO_DATA(127)%H_F       =    242.300000_EB
THERMO_DATA(127)%SIGMA     =  3.635_EB ! R-132
THERMO_DATA(127)%EPSOK     =    94.20_EB
THERMO_DATA(127)%PR        =  0.69_EB ! R-132
 
THERMO_DATA(128)%FORMULA   = 'CF'
THERMO_DATA(128)%NAME      = 'FLUOROMETHYLIDYNEp'
THERMO_DATA(128)%POLY      = 'NASA9'
THERMO_DATA(128)%BANDS     = 2
THERMO_DATA(128)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(128)%A(1:7,1)  = &
   (/-0.597521320E+05_EB, 0.927686365E+03_EB,-0.186658198E+01_EB, 0.138434090E-01_EB,-0.151343000E-04_EB,&
      0.851856000E-08_EB,-0.195958000E-11_EB/)
THERMO_DATA(128)%B(1:2,1)  = (/ 0.132351941E+06_EB, 0.341201319E+02_EB/)
THERMO_DATA(128)%A(1:7,2)  = &
   (/-0.805376278E+05_EB,-0.339027509E+03_EB, 0.470837350E+01_EB,-0.396315000E-04_EB, 0.249800000E-07_EB,&
     -0.523679000E-11_EB, 0.531395000E-15_EB/)
THERMO_DATA(128)%B(1:2,2)  = (/ 0.138133707E+06_EB,-0.392051473E+01_EB/)
THERMO_DATA(128)%H_F       =   1145.564100_EB
THERMO_DATA(128)%SIGMA     =  3.635_EB ! R-132
THERMO_DATA(128)%EPSOK     =    94.20_EB
THERMO_DATA(128)%PR        =  0.69_EB ! R-132
 
THERMO_DATA(129)%FORMULA   = 'CF2'
THERMO_DATA(129)%NAME      = 'DIFLUOROMETHYLENE'
THERMO_DATA(129)%POLY      = 'NASA9'
THERMO_DATA(129)%BANDS     = 2
THERMO_DATA(129)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(129)%A(1:7,1)  = &
   (/-0.379702627E+05_EB, 0.873180003E+03_EB,-0.346019157E+01_EB, 0.274625370E-01_EB,-0.347462000E-04_EB,&
      0.220447000E-07_EB,-0.562175000E-11_EB/)
THERMO_DATA(129)%B(1:2,1)  = (/-0.274679716E+05_EB, 0.445677807E+02_EB/)
THERMO_DATA(129)%A(1:7,2)  = &
   (/-0.108642855E+06_EB,-0.585498914E+03_EB, 0.701864895E+01_EB, 0.392919000E-03_EB,-0.260382000E-06_EB,&
      0.614220000E-10_EB,-0.417283000E-14_EB/)
THERMO_DATA(129)%B(1:2,2)  = (/-0.215294516E+05_EB,-0.135614328E+02_EB/)
THERMO_DATA(129)%H_F       =   -186.600000_EB
THERMO_DATA(129)%SIGMA     =  3.977_EB ! R-132
THERMO_DATA(129)%EPSOK     =   108.00_EB
THERMO_DATA(129)%PR        =  0.71_EB ! R-132
 
THERMO_DATA(130)%FORMULA   = 'CF2'
THERMO_DATA(130)%NAME      = 'DIFLUOROMETHYLENEp'
THERMO_DATA(130)%POLY      = 'NASA9'
THERMO_DATA(130)%BANDS     = 2
THERMO_DATA(130)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(130)%A(1:7,1)  = &
   (/-0.289237383E+05_EB, 0.604935461E+03_EB,-0.972186666E+00_EB, 0.180847830E-01_EB,-0.198007000E-04_EB,&
      0.110164000E-07_EB,-0.250046000E-11_EB/)
THERMO_DATA(130)%B(1:2,1)  = (/ 0.110275567E+06_EB, 0.324759147E+02_EB/)
THERMO_DATA(130)%A(1:7,2)  = &
   (/-0.648896607E+05_EB,-0.106428359E+04_EB, 0.778570210E+01_EB,-0.315835000E-03_EB, 0.713080000E-07_EB,&
     -0.853318000E-11_EB, 0.425164000E-15_EB/)
THERMO_DATA(130)%B(1:2,2)  = (/ 0.117844647E+06_EB,-0.181942471E+02_EB/)
THERMO_DATA(130)%H_F       =    949.341299_EB
THERMO_DATA(130)%SIGMA     =  3.977_EB ! R-132
THERMO_DATA(130)%EPSOK     =   108.00_EB
THERMO_DATA(130)%PR        =  0.71_EB ! R-132
 
THERMO_DATA(131)%FORMULA   = 'CF2Cl2'
THERMO_DATA(131)%NAME      = 'DICHLORODIFLUOROMETHANE'
THERMO_DATA(131)%POLY      = 'NASA9'
THERMO_DATA(131)%BANDS     = 2
THERMO_DATA(131)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(131)%A(1:7,1)  = &
   (/ 0.384125875E+05_EB,-0.613949982E+03_EB, 0.526966719E+01_EB, 0.257410580E-01_EB,-0.358738000E-04_EB,&
      0.241160000E-07_EB,-0.640224000E-11_EB/)
THERMO_DATA(131)%B(1:2,1)  = (/-0.578454133E+05_EB,-0.195745486E+01_EB/)
THERMO_DATA(131)%A(1:7,2)  = &
   (/-0.382744855E+06_EB,-0.693377480E+03_EB, 0.135179127E+02_EB,-0.207511000E-03_EB, 0.459402000E-07_EB,&
     -0.527687000E-11_EB, 0.244904000E-15_EB/)
THERMO_DATA(131)%B(1:2,2)  = (/-0.602152777E+05_EB,-0.447958005E+02_EB/)
THERMO_DATA(131)%H_F       =   -490.800000_EB
THERMO_DATA(131)%SIGMA     =  5.250_EB ! R-132
THERMO_DATA(131)%EPSOK     =   253.00_EB
THERMO_DATA(131)%PR        =  0.73_EB ! R-132
 
THERMO_DATA(132)%FORMULA   = 'CF3'
THERMO_DATA(132)%NAME      = 'TRIFLUOROMETHYL RADICAL'
THERMO_DATA(132)%POLY      = 'NASA9'
THERMO_DATA(132)%BANDS     = 2
THERMO_DATA(132)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(132)%A(1:7,1)  = &
   (/-0.297830711E+05_EB, 0.715367883E+03_EB,-0.349818538E+01_EB, 0.359545800E-01_EB,-0.450797000E-04_EB,&
      0.282181000E-07_EB,-0.709805000E-11_EB/)
THERMO_DATA(132)%B(1:2,1)  = (/-0.605999703E+05_EB, 0.450259264E+02_EB/)
THERMO_DATA(132)%A(1:7,2)  = &
   (/-0.299730556E+06_EB,-0.104698946E+04_EB, 0.107792319E+02_EB,-0.311609000E-03_EB, 0.689135000E-07_EB,&
     -0.791123000E-11_EB, 0.367059000E-15_EB/)
THERMO_DATA(132)%B(1:2,2)  = (/-0.542530440E+05_EB,-0.341703879E+02_EB/)
THERMO_DATA(132)%H_F       =   -467.400000_EB
THERMO_DATA(132)%SIGMA     =  4.320_EB ! R-132
THERMO_DATA(132)%EPSOK     =   121.00_EB
THERMO_DATA(132)%PR        =  0.72_EB ! R-132
 
THERMO_DATA(133)%FORMULA   = 'CF3'
THERMO_DATA(133)%NAME      = 'TRIFLUOROMETHYL RADICALp'
THERMO_DATA(133)%POLY      = 'NASA9'
THERMO_DATA(133)%BANDS     = 2
THERMO_DATA(133)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(133)%A(1:7,1)  = &
   (/-0.358746354E+05_EB, 0.374350670E+03_EB, 0.778741393E+00_EB, 0.192943580E-01_EB,-0.189282000E-04_EB,&
      0.936391000E-08_EB,-0.188576000E-11_EB/)
THERMO_DATA(133)%B(1:2,1)  = (/ 0.477558172E+05_EB, 0.222404401E+02_EB/)
THERMO_DATA(133)%A(1:7,2)  = &
   (/-0.291091953E+05_EB,-0.199665818E+04_EB, 0.114427968E+02_EB,-0.565339000E-03_EB, 0.123230000E-06_EB,&
     -0.139976000E-10_EB, 0.644302000E-15_EB/)
THERMO_DATA(133)%B(1:2,2)  = (/ 0.590234580E+05_EB,-0.408034999E+02_EB/)
THERMO_DATA(133)%H_F       =    423.617480_EB
THERMO_DATA(133)%SIGMA     =  4.320_EB ! R-132
THERMO_DATA(133)%EPSOK     =   121.00_EB
THERMO_DATA(133)%PR        =  0.72_EB ! R-132
 
THERMO_DATA(134)%FORMULA   = 'CF3Br'
THERMO_DATA(134)%NAME      = 'BROMOTRIFLUORMETHANE'
THERMO_DATA(134)%POLY      = 'NASA9'
THERMO_DATA(134)%BANDS     = 2
THERMO_DATA(134)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(134)%A(1:7,1)  = &
   (/-0.543948901E+04_EB, 0.124361519E+03_EB, 0.923194195E+00_EB, 0.348104440E-01_EB,-0.454965000E-04_EB,&
      0.293284000E-07_EB,-0.754800000E-11_EB/)
THERMO_DATA(134)%B(1:2,1)  = (/-0.802339676E+05_EB, 0.223299910E+02_EB/)
THERMO_DATA(134)%A(1:7,2)  = &
   (/-0.383408851E+06_EB,-0.971909330E+03_EB, 0.137247740E+02_EB,-0.290171000E-03_EB, 0.642189000E-07_EB,&
     -0.737569000E-11_EB, 0.342315000E-15_EB/)
THERMO_DATA(134)%B(1:2,2)  = (/-0.776530631E+05_EB,-0.471736721E+02_EB/)
THERMO_DATA(134)%H_F       =   -648.800000_EB
THERMO_DATA(134)%SIGMA     =  5.010_EB ! R-132
THERMO_DATA(134)%EPSOK     =   235.00_EB
THERMO_DATA(134)%PR        =  0.73_EB ! R-132
 
THERMO_DATA(135)%FORMULA   = 'CF3Cl'
THERMO_DATA(135)%NAME      = 'CHLOROTRIFLUORMETHANE'
THERMO_DATA(135)%POLY      = 'NASA9'
THERMO_DATA(135)%BANDS     = 2
THERMO_DATA(135)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(135)%A(1:7,1)  = &
   (/ 0.149940998E+05_EB,-0.136576857E+03_EB, 0.145291237E+01_EB, 0.340476510E-01_EB,-0.447378000E-04_EB,&
      0.288812000E-07_EB,-0.743417000E-11_EB/)
THERMO_DATA(135)%B(1:2,1)  = (/-0.854716664E+05_EB, 0.172732710E+02_EB/)
THERMO_DATA(135)%A(1:7,2)  = &
   (/-0.406604212E+06_EB,-0.102262651E+04_EB, 0.137625263E+02_EB,-0.305272000E-03_EB, 0.675597000E-07_EB,&
     -0.775932000E-11_EB, 0.360119000E-15_EB/)
THERMO_DATA(135)%B(1:2,2)  = (/-0.841055937E+05_EB,-0.491341194E+02_EB/)
THERMO_DATA(135)%H_F       =   -704.200000_EB
THERMO_DATA(135)%SIGMA     =  4.960_EB ! R-132
THERMO_DATA(135)%EPSOK     =   188.00_EB
THERMO_DATA(135)%PR        =  0.73_EB ! R-132
 
THERMO_DATA(136)%FORMULA   = 'CF4'
THERMO_DATA(136)%NAME      = 'TETRAFLUOROMETHANE'
THERMO_DATA(136)%POLY      = 'NASA9'
THERMO_DATA(136)%BANDS     = 2
THERMO_DATA(136)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(136)%A(1:7,1)  = &
   (/ 0.981745850E+04_EB, 0.116334348E+03_EB,-0.128833864E+01_EB, 0.395956690E-01_EB,-0.499624000E-04_EB,&
      0.312534000E-07_EB,-0.784170000E-11_EB/)
THERMO_DATA(136)%B(1:2,1)  = (/-0.113850230E+06_EB, 0.293865655E+02_EB/)
THERMO_DATA(136)%A(1:7,2)  = &
   (/-0.416445678E+06_EB,-0.141479717E+04_EB, 0.140512484E+02_EB,-0.419909000E-03_EB, 0.927892000E-07_EB,&
     -0.106458000E-10_EB, 0.493710000E-15_EB/)
THERMO_DATA(136)%B(1:2,2)  = (/-0.109469115E+06_EB,-0.548710500E+02_EB/)
THERMO_DATA(136)%H_F       =   -933.120000_EB
THERMO_DATA(136)%SIGMA     =  4.662_EB ! R-132
THERMO_DATA(136)%EPSOK     =   134.00_EB
THERMO_DATA(136)%PR        =  0.72_EB ! R-132
 
THERMO_DATA(137)%FORMULA   = 'CFCl3'
THERMO_DATA(137)%NAME      = 'TRICHLOROMONOFLUROMETHANE'
THERMO_DATA(137)%POLY      = 'NASA9'
THERMO_DATA(137)%BANDS     = 2
THERMO_DATA(137)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(137)%A(1:7,1)  = &
   (/ 0.740017400E+05_EB,-0.125228247E+04_EB, 0.100132723E+02_EB, 0.147510760E-01_EB,-0.231564000E-04_EB,&
      0.166421000E-07_EB,-0.462293000E-11_EB/)
THERMO_DATA(137)%B(1:2,1)  = (/-0.302050860E+05_EB,-0.270838709E+02_EB/)
THERMO_DATA(137)%A(1:7,2)  = &
   (/-0.345046478E+06_EB,-0.417782145E+03_EB, 0.133119674E+02_EB,-0.124876000E-03_EB, 0.276139000E-07_EB,&
     -0.316821000E-11_EB, 0.146883000E-15_EB/)
THERMO_DATA(137)%B(1:2,2)  = (/-0.367406719E+05_EB,-0.415688606E+02_EB/)
THERMO_DATA(137)%H_F       =   -283.700000_EB
THERMO_DATA(137)%SIGMA     =  5.440_EB ! R-132
THERMO_DATA(137)%EPSOK     =   334.00_EB
THERMO_DATA(137)%PR        =  0.73_EB ! R-132
 
THERMO_DATA(138)%FORMULA   = 'CH'
THERMO_DATA(138)%NAME      = 'METHYLIDYNE'
THERMO_DATA(138)%POLY      = 'NASA9'
THERMO_DATA(138)%BANDS     = 3
THERMO_DATA(138)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(138)%A(1:7,1)  = &
   (/ 0.222059013E+05_EB,-0.340541153E+03_EB, 0.553145229E+01_EB,-0.579496400E-02_EB, 0.796955000E-05_EB,&
     -0.446591000E-08_EB, 0.959634000E-12_EB/)
THERMO_DATA(138)%B(1:2,1)  = (/ 0.724078327E+05_EB,-0.910767305E+01_EB/)
THERMO_DATA(138)%A(1:7,2)  = &
   (/ 0.206076344E+07_EB,-0.539620666E+04_EB, 0.785629385E+01_EB,-0.796591000E-03_EB, 0.176431000E-06_EB,&
     -0.197639000E-10_EB, 0.503043000E-15_EB/)
THERMO_DATA(138)%B(1:2,2)  = (/ 0.106223659E+06_EB,-0.315475744E+02_EB/)
THERMO_DATA(138)%A(1:7,3)  = &
   (/-0.806836869E+09_EB, 0.457545054E+06_EB,-0.984397508E+02_EB, 0.123524410E-01_EB,-0.848561000E-06_EB,&
      0.304041000E-10_EB,-0.440032000E-15_EB/)
THERMO_DATA(138)%B(1:2,3)  = (/-0.359585159E+07_EB, 0.895347744E+03_EB/)
THERMO_DATA(138)%H_F       =    597.370604_EB
THERMO_DATA(138)%SIGMA     =  3.370_EB ! R-132
THERMO_DATA(138)%EPSOK     =    68.60_EB
THERMO_DATA(138)%PR        =  0.69_EB ! R-132
 
THERMO_DATA(139)%FORMULA   = 'CH'
THERMO_DATA(139)%NAME      = 'METHYLIDYNEp'
THERMO_DATA(139)%POLY      = 'NASA9'
THERMO_DATA(139)%BANDS     = 3
THERMO_DATA(139)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(139)%A(1:7,1)  = &
   (/ 0.301960710E+05_EB,-0.461814131E+03_EB, 0.622564119E+01_EB,-0.777571200E-02_EB, 0.109449000E-04_EB,&
     -0.667549000E-08_EB, 0.156523000E-11_EB/)
THERMO_DATA(139)%B(1:2,1)  = (/ 0.197249193E+06_EB,-0.143151281E+02_EB/)
THERMO_DATA(139)%A(1:7,2)  = &
   (/-0.710209467E+07_EB, 0.182835488E+05_EB,-0.131269140E+02_EB, 0.619171700E-02_EB,-0.290942000E-06_EB,&
     -0.113424000E-09_EB, 0.110596000E-13_EB/)
THERMO_DATA(139)%B(1:2,2)  = (/ 0.754129604E+05_EB, 0.124398483E+03_EB/)
THERMO_DATA(139)%A(1:7,3)  = &
   (/-0.316007049E+09_EB, 0.143669940E+06_EB,-0.110844341E+02_EB, 0.156229000E-03_EB, 0.492850000E-07_EB,&
     -0.289687000E-11_EB, 0.498226000E-16_EB/)
THERMO_DATA(139)%B(1:2,3)  = (/-0.101367285E+07_EB, 0.148935324E+03_EB/)
THERMO_DATA(139)%H_F       =   1630.571000_EB
THERMO_DATA(139)%SIGMA     =  3.370_EB ! R-132
THERMO_DATA(139)%EPSOK     =    68.60_EB
THERMO_DATA(139)%PR        =  0.69_EB ! R-132
 
THERMO_DATA(140)%FORMULA   = 'CH2'
THERMO_DATA(140)%NAME      = 'METHYLENE'
THERMO_DATA(140)%POLY      = 'NASA9'
THERMO_DATA(140)%BANDS     = 2
THERMO_DATA(140)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(140)%A(1:7,1)  = &
   (/ 0.321892173E+05_EB,-0.287760181E+03_EB, 0.420358382E+01_EB, 0.345540600E-02_EB,-0.674619000E-05_EB,&
      0.765457000E-08_EB,-0.287033000E-11_EB/)
THERMO_DATA(140)%B(1:2,1)  = (/ 0.473362471E+05_EB,-0.214362860E+01_EB/)
THERMO_DATA(140)%A(1:7,2)  = &
   (/ 0.255041803E+07_EB,-0.797162539E+04_EB, 0.122892449E+02_EB,-0.169912300E-02_EB, 0.299173000E-06_EB,&
     -0.276701000E-10_EB, 0.105134000E-14_EB/)
THERMO_DATA(140)%B(1:2,2)  = (/ 0.964221689E+05_EB,-0.609473991E+02_EB/)
THERMO_DATA(140)%H_F       =    390.364517_EB
THERMO_DATA(140)%SIGMA     =  3.800_EB ! GRM3
THERMO_DATA(140)%EPSOK     =   144.00_EB
THERMO_DATA(140)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(141)%FORMULA   = 'CH2'
THERMO_DATA(141)%NAME      = 'METHYLENEs'
THERMO_DATA(141)%POLY      = 'NASA7'
THERMO_DATA(141)%BANDS     = 2
THERMO_DATA(141)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.350000000E+04_EB/)
THERMO_DATA(141)%A(1:5,1)  = &
   (/ 0.419860411E+01_EB,-0.236661419E-02_EB, 0.823296220E-05_EB,-0.668815981E-08_EB, 0.194314737E-11_EB/)
THERMO_DATA(141)%B(1:2,1)  = (/ 0.504968163E+05_EB,-0.769118967E+00_EB/)
THERMO_DATA(141)%A(1:5,2)  = &
   (/ 0.229203842E+01_EB, 0.465588637E-02_EB,-0.201191947E-05_EB, 0.417906000E-09_EB,-0.339716365E-13_EB/)
THERMO_DATA(141)%B(1:2,2)  = (/ 0.509259997E+05_EB, 0.862650169E+01_EB/)
THERMO_DATA(141)%H_F       =   429.8904566_EB
THERMO_DATA(141)%SIGMA     =  3.800_EB ! GRM3
THERMO_DATA(141)%EPSOK     =   144.00_EB
THERMO_DATA(141)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(142)%FORMULA   = 'CH2CHO'
THERMO_DATA(142)%NAME      = 'CH2CHO'
THERMO_DATA(142)%POLY      = 'NASA7'
THERMO_DATA(142)%BANDS     = 2
THERMO_DATA(142)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.500000000E+04_EB/)
THERMO_DATA(142)%A(1:5,1)  = &
   (/ 0.340906240E+01_EB, 0.107385740E-01_EB, 0.189149250E-05_EB, 0.715858310E-08_EB, 0.286738510E-11_EB/)
THERMO_DATA(142)%B(1:2,1)  = (/ 0.152147660E+04_EB, 0.957145350E+01_EB/)
THERMO_DATA(142)%A(1:5,2)  = &
   (/ 0.597566990E+01_EB, 0.813059140E-02_EB,-0.274362450E-05_EB, 0.407030410E-09_EB,-0.217601710E-13_EB/)
THERMO_DATA(142)%B(1:2,2)  = (/ 0.490321780E+03_EB,-0.503208790E+01_EB/)
THERMO_DATA(142)%H_F       =    25.33740766_EB
THERMO_DATA(142)%SIGMA     =  3.970_EB ! GRM3
THERMO_DATA(142)%EPSOK     =   436.00_EB
THERMO_DATA(142)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(143)%FORMULA   = 'CH2Cl2'
THERMO_DATA(143)%NAME      = 'METHYLENE CHLORIDE'
THERMO_DATA(143)%POLY      = 'NASA9'
THERMO_DATA(143)%BANDS     = 2
THERMO_DATA(143)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(143)%A(1:7,1)  = &
   (/-0.250984118E+05_EB, 0.868766738E+03_EB,-0.509466921E+01_EB, 0.415005000E-01_EB,-0.519977000E-04_EB,&
      0.344594000E-07_EB,-0.927029000E-11_EB/)
THERMO_DATA(143)%B(1:2,1)  = (/-0.163897884E+05_EB, 0.539689032E+02_EB/)
THERMO_DATA(143)%A(1:7,2)  = &
   (/ 0.152927934E+07_EB,-0.697695476E+04_EB, 0.169415493E+02_EB,-0.126505400E-02_EB, 0.234477000E-06_EB,&
     -0.233323000E-10_EB, 0.963283000E-15_EB/)
THERMO_DATA(143)%B(1:2,2)  = (/ 0.280631817E+05_EB,-0.794945351E+02_EB/)
THERMO_DATA(143)%H_F       =    -95.000000_EB
THERMO_DATA(143)%SIGMA     =  4.898_EB ! R-132
THERMO_DATA(143)%EPSOK     =   356.30_EB
THERMO_DATA(143)%PR        =  0.72_EB ! R-132
 
THERMO_DATA(144)%FORMULA   = 'CH2ClBr'
THERMO_DATA(144)%NAME      = 'BROMOCHLOROMETHANE'
THERMO_DATA(144)%POLY      = 'NASA9'
THERMO_DATA(144)%BANDS     = 2
THERMO_DATA(144)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(144)%A(1:7,1)  = &
   (/-0.130794875E+05_EB, 0.645586038E+03_EB,-0.357734991E+01_EB, 0.383368720E-01_EB,-0.486425000E-04_EB,&
      0.326162000E-07_EB,-0.885288000E-11_EB/)
THERMO_DATA(144)%B(1:2,1)  = (/-0.940227253E+04_EB, 0.474880676E+02_EB/)
THERMO_DATA(144)%A(1:7,2)  = &
   (/ 0.152501631E+07_EB,-0.682333416E+04_EB, 0.168276910E+02_EB,-0.121973500E-02_EB, 0.224496000E-06_EB,&
     -0.221906000E-10_EB, 0.910471000E-15_EB/)
THERMO_DATA(144)%B(1:2,2)  = (/ 0.332023992E+05_EB,-0.763757106E+02_EB/)
THERMO_DATA(144)%H_F       =    -45.000000_EB
THERMO_DATA(144)%SIGMA     =  4.880_EB ! R-132
THERMO_DATA(144)%EPSOK     =   410.00_EB
THERMO_DATA(144)%PR        =  0.72_EB ! R-132
 
THERMO_DATA(145)%FORMULA   = 'CH2CO'
THERMO_DATA(145)%NAME      = 'KETENE'
THERMO_DATA(145)%POLY      = 'NASA9'
THERMO_DATA(145)%BANDS     = 2
THERMO_DATA(145)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(145)%A(1:7,1)  = &
   (/ 0.354959809E+05_EB,-0.406306283E+03_EB, 0.371892192E+01_EB, 0.158350180E-01_EB,-0.172620000E-04_EB,&
      0.115738000E-07_EB,-0.330584000E-11_EB/)
THERMO_DATA(145)%B(1:2,1)  = (/-0.520999258E+04_EB, 0.383960422E+01_EB/)
THERMO_DATA(145)%A(1:7,2)  = &
   (/ 0.201356492E+07_EB,-0.820088746E+04_EB, 0.175969407E+02_EB,-0.146454500E-02_EB, 0.269589000E-06_EB,&
     -0.266567000E-10_EB, 0.109420000E-14_EB/)
THERMO_DATA(145)%B(1:2,2)  = (/ 0.417777688E+05_EB,-0.872580358E+02_EB/)
THERMO_DATA(145)%H_F       =    -49.576095_EB
THERMO_DATA(145)%SIGMA     =  3.970_EB ! GRM3
THERMO_DATA(145)%EPSOK     =   436.00_EB
THERMO_DATA(145)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(146)%FORMULA   = 'CH2F2'
THERMO_DATA(146)%NAME      = 'DIFLUROMETHANE'
THERMO_DATA(146)%POLY      = 'NASA9'
THERMO_DATA(146)%BANDS     = 2
THERMO_DATA(146)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(146)%A(1:7,1)  = &
   (/-0.181991750E+06_EB, 0.317442789E+04_EB,-0.171425691E+02_EB, 0.641135380E-01_EB,-0.731359000E-04_EB,&
      0.442638000E-07_EB,-0.110388000E-10_EB/)
THERMO_DATA(146)%B(1:2,1)  = (/-0.702705895E+05_EB, 0.120733193E+03_EB/)
THERMO_DATA(146)%A(1:7,2)  = &
   (/ 0.154660950E+07_EB,-0.787688333E+04_EB, 0.176877047E+02_EB,-0.158129900E-02_EB, 0.306892000E-06_EB,&
     -0.318341000E-10_EB, 0.136383000E-14_EB/)
THERMO_DATA(146)%B(1:2,2)  = (/-0.980013596E+04_EB,-0.890742036E+02_EB/)
THERMO_DATA(146)%H_F       =   -452.300000_EB
THERMO_DATA(146)%SIGMA     =  4.080_EB ! R-132
THERMO_DATA(146)%EPSOK     =   318.00_EB
THERMO_DATA(146)%PR        =  0.71_EB ! R-132
 
THERMO_DATA(147)%FORMULA   = 'CH2FCl'
THERMO_DATA(147)%NAME      = 'CHLOROFLUORMETHANE'
THERMO_DATA(147)%POLY      = 'NASA9'
THERMO_DATA(147)%BANDS     = 2
THERMO_DATA(147)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(147)%A(1:7,1)  = &
   (/-0.107134033E+06_EB, 0.208132840E+04_EB,-0.115572370E+02_EB, 0.544148210E-01_EB,-0.651862000E-04_EB,&
      0.413316000E-07_EB,-0.107194000E-10_EB/)
THERMO_DATA(147)%B(1:2,1)  = (/-0.426475621E+05_EB, 0.903592355E+02_EB/)
THERMO_DATA(147)%A(1:7,2)  = &
   (/ 0.153612042E+07_EB,-0.737893973E+04_EB, 0.172579718E+02_EB,-0.139564500E-02_EB, 0.263925000E-06_EB,&
     -0.267565000E-10_EB, 0.112358000E-14_EB/)
THERMO_DATA(147)%B(1:2,2)  = (/ 0.981371046E+04_EB,-0.831364255E+02_EB/)
THERMO_DATA(147)%H_F       =   -265.700000_EB
THERMO_DATA(147)%SIGMA     =  4.480_EB ! R-132
THERMO_DATA(147)%EPSOK     =   318.00_EB
THERMO_DATA(147)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(148)%FORMULA   = 'CH2I2'
THERMO_DATA(148)%NAME      = 'DIIODOMETHANE'
THERMO_DATA(148)%POLY      = 'NASA9'
THERMO_DATA(148)%BANDS     = 2
THERMO_DATA(148)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(148)%A(1:7,1)  = &
   (/ 0.273813376E+05_EB,-0.897256804E+02_EB, 0.138786941E+01_EB, 0.273348260E-01_EB,-0.361941000E-04_EB,&
      0.253919000E-07_EB,-0.714559000E-11_EB/)
THERMO_DATA(148)%B(1:2,1)  = (/ 0.133876728E+05_EB, 0.224187016E+02_EB/)
THERMO_DATA(148)%A(1:7,2)  = &
   (/ 0.151289272E+07_EB,-0.644291240E+04_EB, 0.165902614E+02_EB,-0.113555200E-02_EB, 0.207375000E-06_EB,&
     -0.203390000E-10_EB, 0.828228000E-15_EB/)
THERMO_DATA(148)%B(1:2,2)  = (/ 0.505821903E+05_EB,-0.712523514E+02_EB/)
THERMO_DATA(148)%H_F       =    117.570400_EB
THERMO_DATA(148)%SIGMA     =  5.160_EB ! R-132
THERMO_DATA(148)%EPSOK     =   449.20_EB
THERMO_DATA(148)%PR        =  0.72_EB ! R-132
 
THERMO_DATA(149)%FORMULA   = 'CH2OH'
THERMO_DATA(149)%NAME      = 'HYDROXYMETHYL RADICAL'
THERMO_DATA(149)%POLY      = 'NASA9'
THERMO_DATA(149)%BANDS     = 2
THERMO_DATA(149)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(149)%A(1:7,1)  = &
   (/-0.156007624E+06_EB, 0.268544628E+04_EB,-0.134202242E+02_EB, 0.575713950E-01_EB,-0.728445000E-04_EB,&
      0.483665000E-07_EB,-0.129349000E-10_EB/)
THERMO_DATA(149)%B(1:2,1)  = (/-0.159682041E+05_EB, 0.996303370E+02_EB/)
THERMO_DATA(149)%A(1:7,2)  = &
   (/ 0.225034951E+07_EB,-0.817318606E+04_EB, 0.159963918E+02_EB,-0.870413000E-03_EB, 0.606918000E-07_EB,&
      0.440835000E-11_EB,-0.570231000E-15_EB/)
THERMO_DATA(149)%B(1:2,2)  = (/ 0.464531343E+05_EB,-0.783515845E+02_EB/)
THERMO_DATA(149)%H_F       =    -17.800000_EB
THERMO_DATA(149)%SIGMA     =  3.690_EB ! GRM3
THERMO_DATA(149)%EPSOK     =   417.00_EB
THERMO_DATA(149)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(150)%FORMULA   = 'CH2OH'
THERMO_DATA(150)%NAME      = 'HYDROXYMETHYL RADICALp'
THERMO_DATA(150)%POLY      = 'NASA9'
THERMO_DATA(150)%BANDS     = 2
THERMO_DATA(150)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(150)%A(1:7,1)  = &
   (/-0.107708084E+06_EB, 0.225208271E+04_EB,-0.118816786E+02_EB, 0.460231700E-01_EB,-0.487974000E-04_EB,&
      0.287641000E-07_EB,-0.710023000E-11_EB/)
THERMO_DATA(150)%B(1:2,1)  = (/ 0.748444777E+05_EB, 0.902792857E+02_EB/)
THERMO_DATA(150)%A(1:7,2)  = &
   (/ 0.260333349E+07_EB,-0.100995381E+05_EB, 0.173084390E+02_EB,-0.694639000E-03_EB, 0.300972000E-07_EB,&
      0.522149000E-11_EB,-0.509018000E-15_EB/)
THERMO_DATA(150)%B(1:2,2)  = (/ 0.146540243E+06_EB,-0.922395528E+02_EB/)
THERMO_DATA(150)%H_F       =    716.400000_EB
THERMO_DATA(150)%SIGMA     =  3.690_EB ! GRM3
THERMO_DATA(150)%EPSOK     =   417.00_EB
THERMO_DATA(150)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(151)%FORMULA   = 'CH3'
THERMO_DATA(151)%NAME      = 'METHYL RADICAL'
THERMO_DATA(151)%POLY      = 'NASA9'
THERMO_DATA(151)%BANDS     = 2
THERMO_DATA(151)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(151)%A(1:7,1)  = &
   (/-0.287618881E+05_EB, 0.509326866E+03_EB, 0.200214395E+00_EB, 0.136360580E-01_EB,-0.143399000E-04_EB,&
      0.101356000E-07_EB,-0.302733000E-11_EB/)
THERMO_DATA(151)%B(1:2,1)  = (/ 0.140827182E+05_EB, 0.202277279E+02_EB/)
THERMO_DATA(151)%A(1:7,2)  = &
   (/ 0.276080266E+07_EB,-0.933653117E+04_EB, 0.148772961E+02_EB,-0.143943000E-02_EB, 0.244448000E-06_EB,&
     -0.222456000E-10_EB, 0.839507000E-15_EB/)
THERMO_DATA(151)%B(1:2,2)  = (/ 0.748180948E+05_EB,-0.791968240E+02_EB/)
THERMO_DATA(151)%H_F       =    146.658040_EB
THERMO_DATA(151)%SIGMA     =  3.800_EB ! GRM3
THERMO_DATA(151)%EPSOK     =   144.00_EB
THERMO_DATA(151)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(152)%FORMULA   = 'CH3Br'
THERMO_DATA(152)%NAME      = 'MEHTYL BROMIDE'
THERMO_DATA(152)%POLY      = 'NASA9'
THERMO_DATA(152)%BANDS     = 2
THERMO_DATA(152)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(152)%A(1:7,1)  = &
   (/-0.711558577E+05_EB, 0.152470593E+04_EB,-0.823044521E+01_EB, 0.423997320E-01_EB,-0.494698000E-04_EB,&
      0.319443000E-07_EB,-0.853124000E-11_EB/)
THERMO_DATA(152)%B(1:2,1)  = (/-0.125175359E+05_EB, 0.704812777E+02_EB/)
THERMO_DATA(152)%A(1:7,2)  = &
   (/ 0.252487435E+07_EB,-0.101187610E+05_EB, 0.186590216E+02_EB,-0.179767400E-02_EB, 0.329852000E-06_EB,&
     -0.325091000E-10_EB, 0.133018000E-14_EB/)
THERMO_DATA(152)%B(1:2,2)  = (/ 0.554057639E+05_EB,-0.977866446E+02_EB/)
THERMO_DATA(152)%H_F       =    -37.740000_EB
THERMO_DATA(152)%SIGMA     =  4.118_EB ! R-132
THERMO_DATA(152)%EPSOK     =   449.20_EB
THERMO_DATA(152)%PR        =  0.71_EB ! R-132
 
THERMO_DATA(153)%FORMULA   = 'CH3C(CH3)2CH3'
THERMO_DATA(153)%NAME      = 'NEOPENTANE'
THERMO_DATA(153)%POLY      = 'NASA9'
THERMO_DATA(153)%BANDS     = 2
THERMO_DATA(153)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(153)%A(1:7,1)  = &
   (/-0.897322227E+07_EB, 0.128922562E+06_EB,-0.719934483E+03_EB, 0.205686218E+01_EB,-0.295316000E-02_EB,&
      0.215889000E-05_EB,-0.626832000E-09_EB/)
THERMO_DATA(153)%B(1:2,1)  = (/-0.639493202E+06_EB, 0.402080636E+04_EB/)
THERMO_DATA(153)%A(1:7,2)  = &
   (/ 0.168470552E+08_EB,-0.597943057E+05_EB, 0.868545148E+02_EB,-0.962191800E-02_EB, 0.165336000E-05_EB,&
     -0.167473000E-09_EB, 0.737212000E-14_EB/)
THERMO_DATA(153)%B(1:2,2)  = (/ 0.345849682E+06_EB,-0.576046697E+03_EB/)
THERMO_DATA(153)%H_F       =   -167.920000_EB
THERMO_DATA(153)%SIGMA     =  6.464_EB ! R-132
THERMO_DATA(153)%EPSOK     =   193.40_EB
THERMO_DATA(153)%PR        =  0.71_EB ! Assume N2
THERMO_DATA(153)%RADCAL_ID = 'PROPANE'
 
THERMO_DATA(154)%FORMULA   = 'CH3CHO'
THERMO_DATA(154)%NAME      = 'ETHANAL'
THERMO_DATA(154)%POLY      = 'NASA9'
THERMO_DATA(154)%BANDS     = 2
THERMO_DATA(154)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(154)%A(1:7,1)  = &
   (/-0.137390437E+06_EB, 0.255993768E+04_EB,-0.134047017E+02_EB, 0.592212860E-01_EB,-0.624001000E-04_EB,&
      0.370332000E-07_EB,-0.934270000E-11_EB/)
THERMO_DATA(154)%B(1:2,1)  = (/-0.331873131E+05_EB, 0.100741765E+03_EB/)
THERMO_DATA(154)%A(1:7,2)  = &
   (/ 0.332117659E+07_EB,-0.144971996E+05_EB, 0.270842128E+02_EB,-0.287932000E-02_EB, 0.555631000E-06_EB,&
     -0.573267000E-10_EB, 0.244397000E-14_EB/)
THERMO_DATA(154)%B(1:2,2)  = (/ 0.650775564E+05_EB,-0.153623603E+03_EB/)
THERMO_DATA(154)%H_F       =   -166.190000_EB
THERMO_DATA(154)%SIGMA     =  3.970_EB ! GRM3
THERMO_DATA(154)%EPSOK     =   436.00_EB
THERMO_DATA(154)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(155)%FORMULA   = 'CH3Cl'
THERMO_DATA(155)%NAME      = 'CHLOROMETHANE'
THERMO_DATA(155)%POLY      = 'NASA9'
THERMO_DATA(155)%BANDS     = 2
THERMO_DATA(155)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(155)%A(1:7,1)  = &
   (/-0.984197110E+05_EB, 0.198370084E+04_EB,-0.108451230E+02_EB, 0.477798010E-01_EB,-0.551552000E-04_EB,&
      0.350618000E-07_EB,-0.923610000E-11_EB/)
THERMO_DATA(155)%B(1:2,1)  = (/-0.199468951E+05_EB, 0.839965833E+02_EB/)
THERMO_DATA(155)%A(1:7,2)  = &
   (/ 0.252246331E+07_EB,-0.103011545E+05_EB, 0.188272585E+02_EB,-0.187229100E-02_EB, 0.347337000E-06_EB,&
     -0.345889000E-10_EB, 0.142894000E-14_EB/)
THERMO_DATA(155)%B(1:2,2)  = (/ 0.511141741E+05_EB,-0.100657139E+03_EB/)
THERMO_DATA(155)%H_F       =    -81.870000_EB
THERMO_DATA(155)%SIGMA     =  4.182_EB ! R-132
THERMO_DATA(155)%EPSOK     =   350.00_EB
THERMO_DATA(155)%PR        =  0.71_EB ! R-132
 
THERMO_DATA(156)%FORMULA   = 'CH3F'
THERMO_DATA(156)%NAME      = 'METHYL FLUORIDE'
THERMO_DATA(156)%POLY      = 'NASA9'
THERMO_DATA(156)%BANDS     = 2
THERMO_DATA(156)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(156)%A(1:7,1)  = &
   (/-0.202982188E+06_EB, 0.344733113E+04_EB,-0.176899428E+02_EB, 0.594527580E-01_EB,-0.646953000E-04_EB,&
      0.385942000E-07_EB,-0.962654000E-11_EB/)
THERMO_DATA(156)%B(1:2,1)  = (/-0.457792622E+05_EB, 0.122838218E+03_EB/)
THERMO_DATA(156)%A(1:7,2)  = &
   (/ 0.256190319E+07_EB,-0.108605276E+05_EB, 0.192944692E+02_EB,-0.207097300E-02_EB, 0.392912000E-06_EB,&
     -0.399450000E-10_EB, 0.168145000E-14_EB/)
THERMO_DATA(156)%B(1:2,2)  = (/ 0.356350851E+05_EB,-0.106115846E+03_EB/)
THERMO_DATA(156)%H_F       =   -237.700000_EB
THERMO_DATA(156)%SIGMA     =  3.730_EB ! R-132
THERMO_DATA(156)%EPSOK     =   333.00_EB
THERMO_DATA(156)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(157)%FORMULA   = 'CH3I'
THERMO_DATA(157)%NAME      = 'IODOMETHANE'
THERMO_DATA(157)%POLY      = 'NASA9'
THERMO_DATA(157)%BANDS     = 2
THERMO_DATA(157)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(157)%A(1:7,1)  = &
   (/-0.451646274E+05_EB, 0.108620843E+04_EB,-0.566317627E+01_EB, 0.368317170E-01_EB,-0.432139000E-04_EB,&
      0.283348000E-07_EB,-0.768438000E-11_EB/)
THERMO_DATA(157)%B(1:2,1)  = (/-0.430383065E+04_EB, 0.568856269E+02_EB/)
THERMO_DATA(157)%A(1:7,2)  = &
   (/ 0.251191598E+07_EB,-0.996028999E+04_EB, 0.185690713E+02_EB,-0.176819100E-02_EB, 0.324221000E-06_EB,&
     -0.319294000E-10_EB, 0.130541000E-14_EB/)
THERMO_DATA(157)%B(1:2,2)  = (/ 0.606692995E+05_EB,-0.959077704E+02_EB/)
THERMO_DATA(157)%H_F       =     13.765360_EB
THERMO_DATA(157)%SIGMA     =  4.230_EB ! R-132
THERMO_DATA(157)%EPSOK     =   519.00_EB
THERMO_DATA(157)%PR        =  0.71_EB ! R-132
 
THERMO_DATA(158)%FORMULA   = 'CH3O'
THERMO_DATA(158)%NAME      = 'METHOXY RADICAL'
THERMO_DATA(158)%POLY      = 'NASA9'
THERMO_DATA(158)%BANDS     = 2
THERMO_DATA(158)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(158)%A(1:7,1)  = &
   (/ 0.865711766E+05_EB,-0.663168525E+03_EB, 0.225745567E+01_EB, 0.226628380E-01_EB,-0.297057000E-04_EB,&
      0.219934000E-07_EB,-0.658804000E-11_EB/)
THERMO_DATA(158)%B(1:2,1)  = (/ 0.417410213E+04_EB, 0.817477790E+01_EB/)
THERMO_DATA(158)%A(1:7,2)  = &
   (/ 0.210118824E+07_EB,-0.884196880E+04_EB, 0.182264573E+02_EB,-0.174348500E-02_EB, 0.334043000E-06_EB,&
     -0.343067000E-10_EB, 0.147390000E-14_EB/)
THERMO_DATA(158)%B(1:2,2)  = (/ 0.530958206E+05_EB,-0.942250059E+02_EB/)
THERMO_DATA(158)%H_F       =     13.000000_EB
THERMO_DATA(158)%SIGMA     =  3.690_EB ! GRM3
THERMO_DATA(158)%EPSOK     =   417.00_EB
THERMO_DATA(158)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(159)%FORMULA   = 'CH3OCH3'
THERMO_DATA(159)%NAME      = 'METHYL ETHER'
THERMO_DATA(159)%POLY      = 'NASA9'
THERMO_DATA(159)%BANDS     = 2
THERMO_DATA(159)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(159)%A(1:7,1)  = &
   (/-0.269310324E+06_EB, 0.430070971E+04_EB,-0.215278803E+02_EB, 0.813183340E-01_EB,-0.829567000E-04_EB,&
      0.480191000E-07_EB,-0.118870000E-10_EB/)
THERMO_DATA(159)%B(1:2,1)  = (/-0.441023709E+05_EB, 0.146766693E+03_EB/)
THERMO_DATA(159)%A(1:7,2)  = &
   (/ 0.493357719E+07_EB,-0.208309407E+05_EB, 0.362905061E+02_EB,-0.410835200E-02_EB, 0.790322000E-06_EB,&
     -0.813144000E-10_EB, 0.345817000E-14_EB/)
THERMO_DATA(159)%B(1:2,2)  = (/ 0.101330101E+06_EB,-0.218544747E+03_EB/)
THERMO_DATA(159)%H_F       =   -184.110000_EB
THERMO_DATA(159)%SIGMA     =  4.307_EB ! R-132
THERMO_DATA(159)%EPSOK     =   395.00_EB
THERMO_DATA(159)%PR        =  0.72_EB ! R-132
THERMO_DATA(159)%RADCAL_ID = 'METHANOL'
 
THERMO_DATA(160)%FORMULA   = 'CH3OH'
THERMO_DATA(160)%NAME      = 'METHANOL'
THERMO_DATA(160)%POLY      = 'NASA9'
THERMO_DATA(160)%BANDS     = 2
THERMO_DATA(160)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(160)%A(1:7,1)  = &
   (/-0.241664289E+06_EB, 0.403214719E+04_EB,-0.204641544E+02_EB, 0.690369810E-01_EB,-0.759893000E-04_EB,&
      0.459821000E-07_EB,-0.115871000E-10_EB/)
THERMO_DATA(160)%B(1:2,1)  = (/-0.443326117E+05_EB, 0.140014219E+03_EB/)
THERMO_DATA(160)%A(1:7,2)  = &
   (/ 0.341157076E+07_EB,-0.134550020E+05_EB, 0.226140762E+02_EB,-0.214102900E-02_EB, 0.373005000E-06_EB,&
     -0.349885000E-10_EB, 0.136607000E-14_EB/)
THERMO_DATA(160)%B(1:2,2)  = (/ 0.563608156E+05_EB,-0.127781428E+03_EB/)
THERMO_DATA(160)%H_F       =   -200.940000_EB
THERMO_DATA(160)%SIGMA     =  3.626_EB ! R-132
THERMO_DATA(160)%EPSOK     =   481.80_EB
THERMO_DATA(160)%PR        =  0.95_EB ! Faghri&Zhang Transport Phenomena in Mult
THERMO_DATA(160)%RADCAL_ID = 'METHANOL'
 
THERMO_DATA(161)%FORMULA   = 'CH4'
THERMO_DATA(161)%NAME      = 'METHANE'
THERMO_DATA(161)%POLY      = 'NASA9'
THERMO_DATA(161)%BANDS     = 2
THERMO_DATA(161)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(161)%A(1:7,1)  = &
   (/-0.176685100E+06_EB, 0.278618102E+04_EB,-0.120257785E+02_EB, 0.391761930E-01_EB,-0.361905000E-04_EB,&
      0.202685000E-07_EB,-0.497671000E-11_EB/)
THERMO_DATA(161)%B(1:2,1)  = (/-0.233131436E+05_EB, 0.890432275E+02_EB/)
THERMO_DATA(161)%A(1:7,2)  = &
   (/ 0.373004276E+07_EB,-0.138350148E+05_EB, 0.204910709E+02_EB,-0.196197500E-02_EB, 0.472731000E-06_EB,&
     -0.372881000E-10_EB, 0.162374000E-14_EB/)
THERMO_DATA(161)%B(1:2,2)  = (/ 0.753206691E+05_EB,-0.121912489E+03_EB/)
THERMO_DATA(161)%H_F       =    -74.600000_EB
THERMO_DATA(161)%SIGMA     =  3.758_EB ! R-132
THERMO_DATA(161)%EPSOK     =   148.60_EB
THERMO_DATA(161)%PR        =  0.70_EB ! JPCRD 19(5)
THERMO_DATA(161)%RADCAL_ID = 'METHANE'
THERMO_DATA(161)%LIQUID    = .TRUE.
THERMO_DATA(161)%T_L(1:2)  = (/100._EB,140._EB/)
THERMO_DATA(161)%A_L(3:6,1)= (/6.17400E+02_EB,7.17167E+01_EB,-6.75000E-01_EB,2.33333E-03_EB/)
THERMO_DATA(161)%H_V       = 537767.9796_EB !J/kg
THERMO_DATA(161)%T_REF     = 90.6_EB !K
THERMO_DATA(161)%T_MELT    = 90.6_EB !K
THERMO_DATA(161)%T_BOIL    = 111.63_EB !K
THERMO_DATA(161)%DENSITY   = 422._EB !kg/m^3
THERMO_DATA(161)%K         = 0.189_EB !W/m/K
THERMO_DATA(161)%MU        = 0.000118_EB !N.s/m^2

THERMO_DATA(162)%FORMULA   = 'CHBr3'
THERMO_DATA(162)%NAME      = 'TRIBROMOMETHANE'
THERMO_DATA(162)%POLY      = 'NASA9'
THERMO_DATA(162)%BANDS     = 2
THERMO_DATA(162)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(162)%A(1:7,1)  = &
   (/ 0.434657686E+05_EB,-0.499963442E+03_EB, 0.562022211E+01_EB, 0.207934630E-01_EB,-0.292134000E-04_EB,&
      0.206694000E-07_EB,-0.578122000E-11_EB/)
THERMO_DATA(162)%B(1:2,1)  = (/ 0.262783006E+04_EB, 0.124790402E+01_EB/)
THERMO_DATA(162)%A(1:7,2)  = &
   (/ 0.627423495E+06_EB,-0.337871110E+04_EB, 0.148785261E+02_EB,-0.593275000E-03_EB, 0.108242000E-06_EB,&
     -0.106101000E-10_EB, 0.431915000E-15_EB/)
THERMO_DATA(162)%B(1:2,2)  = (/ 0.187723466E+05_EB,-0.531190965E+02_EB/)
THERMO_DATA(162)%H_F       =     16.740000_EB
THERMO_DATA(162)%SIGMA     =  5.330_EB ! R-132
THERMO_DATA(162)%EPSOK     =   559.00_EB
THERMO_DATA(162)%PR        =  0.73_EB ! R-132
 
THERMO_DATA(163)%FORMULA   = 'CHCl2Br'
THERMO_DATA(163)%NAME      = 'BROMODICHLOROMETHANE'
THERMO_DATA(163)%POLY      = 'NASA9'
THERMO_DATA(163)%BANDS     = 2
THERMO_DATA(163)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(163)%A(1:7,1)  = &
   (/ 0.329402265E+05_EB,-0.327530117E+03_EB, 0.377323524E+01_EB, 0.253646610E-01_EB,-0.347267000E-04_EB,&
      0.240467000E-07_EB,-0.662173000E-11_EB/)
THERMO_DATA(163)%B(1:2,1)  = (/-0.542556508E+04_EB, 0.943341200E+01_EB/)
THERMO_DATA(163)%A(1:7,2)  = &
   (/ 0.592487644E+06_EB,-0.350947561E+04_EB, 0.149934959E+02_EB,-0.643306000E-03_EB, 0.119858000E-06_EB,&
     -0.119848000E-10_EB, 0.496995000E-15_EB/)
THERMO_DATA(163)%B(1:2,2)  = (/ 0.119725140E+05_EB,-0.560268778E+02_EB/)
THERMO_DATA(163)%H_F       =    -45.000000_EB
THERMO_DATA(163)%SIGMA     =  5.250_EB ! R-132
THERMO_DATA(163)%EPSOK     =   427.00_EB
THERMO_DATA(163)%PR        =  0.73_EB ! R-132
 
THERMO_DATA(164)%FORMULA   = 'CHCl3'
THERMO_DATA(164)%NAME      = 'CHLOROFORM'
THERMO_DATA(164)%POLY      = 'NASA9'
THERMO_DATA(164)%BANDS     = 2
THERMO_DATA(164)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(164)%A(1:7,1)  = &
   (/ 0.339533329E+05_EB,-0.304742879E+03_EB, 0.292367226E+01_EB, 0.283054790E-01_EB,-0.371242000E-04_EB,&
      0.255137000E-07_EB,-0.698766000E-11_EB/)
THERMO_DATA(164)%B(1:2,1)  = (/-0.123506316E+05_EB, 0.111555641E+02_EB/)
THERMO_DATA(164)%A(1:7,2)  = &
   (/ 0.613605274E+06_EB,-0.371508717E+04_EB, 0.151077725E+02_EB, 0.236258000E-03_EB, 0.129714000E-06_EB,&
     -0.126749000E-10_EB, 0.525902000E-15_EB/)
THERMO_DATA(164)%B(1:2,2)  = (/ 0.620331345E+04_EB,-0.599257654E+02_EB/)
THERMO_DATA(164)%H_F       =   -102.700000_EB
THERMO_DATA(164)%SIGMA     =  5.389_EB ! R-132
THERMO_DATA(164)%EPSOK     =   340.20_EB
THERMO_DATA(164)%PR        =  0.73_EB ! R-132
 
THERMO_DATA(165)%FORMULA   = 'CHF2Cl'
THERMO_DATA(165)%NAME      = 'DIFLUROCHLOROMETHANE'
THERMO_DATA(165)%POLY      = 'NASA9'
THERMO_DATA(165)%BANDS     = 2
THERMO_DATA(165)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(165)%A(1:7,1)  = &
   (/-0.724057941E+05_EB, 0.136551097E+04_EB,-0.715322208E+01_EB, 0.485498800E-01_EB,-0.594878000E-04_EB,&
      0.375097000E-07_EB,-0.958952000E-11_EB/)
THERMO_DATA(165)%B(1:2,1)  = (/-0.656593280E+05_EB, 0.665721223E+02_EB/)
THERMO_DATA(165)%A(1:7,2)  = &
   (/ 0.562949373E+06_EB,-0.429867305E+04_EB, 0.155819140E+02_EB,-0.878928000E-03_EB, 0.172025000E-06_EB,&
     -0.179791000E-10_EB, 0.775339000E-15_EB/)
THERMO_DATA(165)%B(1:2,2)  = (/-0.363406716E+05_EB,-0.661126148E+02_EB/)
THERMO_DATA(165)%H_F       =   -482.800000_EB
THERMO_DATA(165)%SIGMA     =  4.680_EB ! R-132
THERMO_DATA(165)%EPSOK     =   261.00_EB
THERMO_DATA(165)%PR        =  0.72_EB ! R-132
 
THERMO_DATA(166)%FORMULA   = 'CHF3'
THERMO_DATA(166)%NAME      = 'FLUOROFORM'
THERMO_DATA(166)%POLY      = 'NASA9'
THERMO_DATA(166)%BANDS     = 2
THERMO_DATA(166)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(166)%A(1:7,1)  = &
   (/-0.109513226E+06_EB, 0.204227388E+04_EB,-0.116621308E+02_EB, 0.578580780E-01_EB,-0.685714000E-04_EB,&
      0.421212000E-07_EB,-0.105320000E-10_EB/)
THERMO_DATA(166)%B(1:2,1)  = (/-0.939547005E+05_EB, 0.893592065E+02_EB/)
THERMO_DATA(166)%A(1:7,2)  = &
   (/ 0.568523202E+06_EB,-0.472836170E+04_EB, 0.158672852E+02_EB,-0.738235000E-03_EB, 0.197084000E-06_EB,&
     -0.206212000E-10_EB, 0.897060000E-15_EB/)
THERMO_DATA(166)%B(1:2,2)  = (/-0.592319637E+05_EB,-0.716127322E+02_EB/)
THERMO_DATA(166)%H_F       =   -693.300000_EB
THERMO_DATA(166)%SIGMA     =  4.330_EB ! R-132
THERMO_DATA(166)%EPSOK     =   240.00_EB
THERMO_DATA(166)%PR        =  0.72_EB ! R-132
 
THERMO_DATA(167)%FORMULA   = 'CHFClBr'
THERMO_DATA(167)%NAME      = 'CHFClBr'
THERMO_DATA(167)%POLY      = 'NASA9'
THERMO_DATA(167)%BANDS     = 2
THERMO_DATA(167)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(167)%A(1:7,1)  = &
   (/-0.195924061E+05_EB, 0.490172327E+03_EB,-0.125940850E+01_EB, 0.361770850E-01_EB,-0.465424000E-04_EB,&
      0.306524000E-07_EB,-0.812390000E-11_EB/)
THERMO_DATA(167)%B(1:2,1)  = (/-0.313990071E+05_EB, 0.371045095E+02_EB/)
THERMO_DATA(167)%A(1:7,2)  = &
   (/ 0.580011751E+06_EB,-0.382333785E+04_EB, 0.152280906E+02_EB,-0.737391000E-03_EB, 0.140710000E-06_EB,&
     -0.143825000E-10_EB, 0.608387000E-15_EB/)
THERMO_DATA(167)%B(1:2,2)  = (/-0.855224990E+04_EB,-0.590367770E+02_EB/)
THERMO_DATA(167)%H_F       =   -230.000000_EB
THERMO_DATA(167)%SIGMA     =  5.130_EB ! R-132
THERMO_DATA(167)%EPSOK     =   345.00_EB
THERMO_DATA(167)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(168)%FORMULA   = 'CI2'
THERMO_DATA(168)%NAME      = 'CHLORINE'
THERMO_DATA(168)%POLY      = 'NASA9'
THERMO_DATA(168)%BANDS     = 2
THERMO_DATA(168)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(168)%A(1:7,1)  = &
   (/ 0.602828981E+05_EB,-0.104320544E+04_EB, 0.101746594E+02_EB,-0.553567200E-02_EB, 0.563032000E-05_EB,&
     -0.310825000E-08_EB, 0.720247000E-12_EB/)
THERMO_DATA(168)%B(1:2,1)  = (/ 0.596489655E+05_EB,-0.231031921E+02_EB/)
THERMO_DATA(168)%A(1:7,2)  = &
   (/-0.702865553E+06_EB, 0.308275039E+03_EB, 0.904642705E+01_EB,-0.294673700E-02_EB, 0.142435000E-05_EB,&
     -0.245318000E-09_EB, 0.142527000E-13_EB/)
THERMO_DATA(168)%B(1:2,2)  = (/ 0.502113421E+05_EB,-0.156034938E+02_EB/)
THERMO_DATA(168)%H_F       =    468.393633_EB
THERMO_DATA(168)%SIGMA     =  4.217_EB ! R-132
THERMO_DATA(168)%EPSOK     =   316.00_EB
THERMO_DATA(168)%PR        =  0.75_EB ! airliquide.com
THERMO_DATA(168)%LIQUID    = .TRUE.
THERMO_DATA(168)%T_L(1:2)  = (/180._EB,230._EB/)
THERMO_DATA(168)%A_L(3:5,1)= (/891.314_EB,0.747857_EB,-0.0025_EB/)
THERMO_DATA(168)%H_V = 287790._EB !J/kg
THERMO_DATA(168)%T_REF = 238.55_EB !K
THERMO_DATA(168)%T_MELT = 172.17_EB !K
THERMO_DATA(168)%T_BOIL = 238.55_EB !K
THERMO_DATA(168)%DENSITY = 1565.5_EB !kg/m^3
THERMO_DATA(168)%MU = 0.000343_EB  !N.s/m^2
THERMO_DATA(168)%K = 0.190_EB !W/m/K
THERMO_DATA(168)%BETA = 0.00219_EB !1/K

 
THERMO_DATA(169)%FORMULA   = 'Cl'
THERMO_DATA(169)%NAME      = 'CHLORINE ATOM'
THERMO_DATA(169)%POLY      = 'NASA9'
THERMO_DATA(169)%BANDS     = 3
THERMO_DATA(169)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(169)%A(1:7,1)  = &
   (/ 0.227621585E+05_EB,-0.216841329E+03_EB, 0.274518511E+01_EB, 0.245110200E-02_EB,-0.545801000E-05_EB,&
      0.441799000E-08_EB,-0.128813000E-11_EB/)
THERMO_DATA(169)%B(1:2,1)  = (/ 0.150135707E+05_EB, 0.310296346E+01_EB/)
THERMO_DATA(169)%A(1:7,2)  = &
   (/-0.169793293E+06_EB, 0.608172646E+03_EB, 0.212866409E+01_EB, 0.130737000E-03_EB,-0.264488000E-07_EB,&
      0.284250000E-11_EB,-0.125291000E-15_EB/)
THERMO_DATA(169)%B(1:2,2)  = (/ 0.993438740E+04_EB, 0.884477210E+01_EB/)
THERMO_DATA(169)%A(1:7,3)  = &
   (/-0.713968707E+08_EB, 0.449993633E+05_EB,-0.926431535E+01_EB, 0.165743800E-02_EB,-0.132622000E-06_EB,&
      0.553400000E-11_EB,-0.839030000E-16_EB/)
THERMO_DATA(169)%B(1:2,3)  = (/-0.340533303E+06_EB, 0.106911143E+03_EB/)
THERMO_DATA(169)%H_F       =    121.301000_EB
THERMO_DATA(169)%SIGMA     =  3.613_EB ! R-132
THERMO_DATA(169)%EPSOK     =   130.80_EB
THERMO_DATA(169)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(170)%FORMULA   = 'Cl'
THERMO_DATA(170)%NAME      = 'CHLORINE ATOMm'
THERMO_DATA(170)%POLY      = 'NASA9'
THERMO_DATA(170)%BANDS     = 3
THERMO_DATA(170)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(170)%A(1:7,1)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(170)%B(1:2,1)  = (/-0.288838909E+05_EB, 0.420064202E+01_EB/)
THERMO_DATA(170)%A(1:7,2)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(170)%B(1:2,2)  = (/-0.288838909E+05_EB, 0.420064202E+01_EB/)
THERMO_DATA(170)%A(1:7,3)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(170)%B(1:2,3)  = (/-0.288838909E+05_EB, 0.420064202E+01_EB/)
THERMO_DATA(170)%H_F       =   -233.957972_EB
THERMO_DATA(170)%SIGMA     =  3.613_EB ! R-132
THERMO_DATA(170)%EPSOK     =   130.80_EB
THERMO_DATA(170)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(171)%FORMULA   = 'Cl'
THERMO_DATA(171)%NAME      = 'CHLORINE ATOMp'
THERMO_DATA(171)%POLY      = 'NASA9'
THERMO_DATA(171)%BANDS     = 3
THERMO_DATA(171)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(171)%A(1:7,1)  = &
   (/ 0.103469786E+06_EB,-0.129375887E+04_EB, 0.818670269E+01_EB,-0.991601500E-02_EB, 0.920847000E-05_EB,&
     -0.450743000E-08_EB, 0.918213000E-12_EB/)
THERMO_DATA(171)%B(1:2,1)  = (/ 0.171475878E+06_EB,-0.276641793E+02_EB/)
THERMO_DATA(171)%A(1:7,2)  = &
   (/ 0.405640948E+05_EB,-0.496016572E+02_EB, 0.310165363E+01_EB,-0.586874000E-03_EB, 0.225204000E-06_EB,&
     -0.329970000E-10_EB, 0.170878000E-14_EB/)
THERMO_DATA(171)%B(1:2,2)  = (/ 0.165298234E+06_EB, 0.257494260E+01_EB/)
THERMO_DATA(171)%A(1:7,3)  = &
   (/-0.307809995E+07_EB,-0.685841828E+03_EB, 0.309228928E+01_EB,-0.192226000E-04_EB, 0.380555000E-09_EB,&
     -0.157185000E-12_EB, 0.844251000E-17_EB/)
THERMO_DATA(171)%B(1:2,3)  = (/ 0.168343440E+06_EB, 0.133440723E+01_EB/)
THERMO_DATA(171)%H_F       =   1378.799640_EB
THERMO_DATA(171)%SIGMA     =  3.613_EB ! R-132
THERMO_DATA(171)%EPSOK     =   130.80_EB
THERMO_DATA(171)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(172)%FORMULA   = 'Cl2'
THERMO_DATA(172)%NAME      = 'CHLORINE'
THERMO_DATA(172)%POLY      = 'NASA9'
THERMO_DATA(172)%BANDS     = 2
THERMO_DATA(172)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(172)%A(1:7,1)  = &
   (/ 0.346281517E+05_EB,-0.554712652E+03_EB, 0.620758937E+01_EB,-0.298963200E-02_EB, 0.317303000E-05_EB,&
     -0.179363000E-08_EB, 0.426004000E-12_EB/)
THERMO_DATA(172)%B(1:2,1)  = (/ 0.153406933E+04_EB,-0.943833111E+01_EB/)
THERMO_DATA(172)%A(1:7,2)  = &
   (/ 0.609256942E+07_EB,-0.194962766E+05_EB, 0.285453579E+02_EB,-0.144996880E-01_EB, 0.446389000E-05_EB,&
     -0.635853000E-09_EB, 0.332736000E-13_EB/)
THERMO_DATA(172)%B(1:2,2)  = (/ 0.121211772E+06_EB,-0.169077882E+03_EB/)
THERMO_DATA(172)%H_F       =      0.000000_EB
THERMO_DATA(172)%SIGMA     =  4.217_EB ! R-132
THERMO_DATA(172)%EPSOK     =   316.00_EB
THERMO_DATA(172)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(173)%FORMULA   = 'ClCN'
THERMO_DATA(173)%NAME      = 'CYANOGEN CHLORIDE'
THERMO_DATA(173)%POLY      = 'NASA9'
THERMO_DATA(173)%BANDS     = 2
THERMO_DATA(173)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(173)%A(1:7,1)  = &
   (/ 0.727404343E+05_EB,-0.129734495E+04_EB, 0.110767653E+02_EB,-0.110843020E-01_EB, 0.161401000E-04_EB,&
     -0.108892000E-07_EB, 0.283095000E-11_EB/)
THERMO_DATA(173)%B(1:2,1)  = (/ 0.208438899E+05_EB,-0.359737005E+02_EB/)
THERMO_DATA(173)%A(1:7,2)  = &
   (/ 0.346757312E+06_EB,-0.195785737E+04_EB, 0.880780615E+01_EB,-0.438836000E-03_EB, 0.102476000E-06_EB,&
     -0.111068000E-10_EB, 0.498618000E-15_EB/)
THERMO_DATA(173)%B(1:2,2)  = (/ 0.258192394E+05_EB,-0.263688536E+02_EB/)
THERMO_DATA(173)%H_F       =    134.200000_EB
THERMO_DATA(173)%SIGMA     =  4.047_EB ! R-132
THERMO_DATA(173)%EPSOK     =   338.70_EB
THERMO_DATA(173)%PR        =  0.71_EB ! R-132
 
THERMO_DATA(174)%FORMULA   = 'ClF'
THERMO_DATA(174)%NAME      = 'CHLORINE FLUORIDE'
THERMO_DATA(174)%POLY      = 'NASA9'
THERMO_DATA(174)%BANDS     = 2
THERMO_DATA(174)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(174)%A(1:7,1)  = &
   (/ 0.335221081E+05_EB,-0.368831190E+03_EB, 0.427228862E+01_EB, 0.254943500E-02_EB,-0.445683000E-05_EB,&
      0.341385000E-08_EB,-0.983869000E-12_EB/)
THERMO_DATA(174)%B(1:2,1)  = (/-0.583936969E+04_EB, 0.231801420E+00_EB/)
THERMO_DATA(174)%A(1:7,2)  = &
   (/ 0.304586717E+07_EB,-0.997932826E+04_EB, 0.168416225E+02_EB,-0.746585100E-02_EB, 0.233621000E-05_EB,&
     -0.336587000E-09_EB, 0.176308000E-13_EB/)
THERMO_DATA(174)%B(1:2,2)  = (/ 0.544712080E+05_EB,-0.870798709E+02_EB/)
THERMO_DATA(174)%H_F       =    -55.700993_EB
THERMO_DATA(174)%SIGMA     =  3.668_EB ! R-132
THERMO_DATA(174)%EPSOK     =   203.40_EB
THERMO_DATA(174)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(175)%FORMULA   = 'ClF3'
THERMO_DATA(175)%NAME      = 'CHLORINE TRIFLUORIDE'
THERMO_DATA(175)%POLY      = 'NASA9'
THERMO_DATA(175)%BANDS     = 2
THERMO_DATA(175)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(175)%A(1:7,1)  = &
   (/ 0.128517517E+06_EB,-0.214044572E+04_EB, 0.149309647E+02_EB,-0.604247100E-02_EB, 0.371897000E-05_EB,&
     -0.805320000E-09_EB,-0.798560000E-13_EB/)
THERMO_DATA(175)%B(1:2,1)  = (/-0.113845964E+05_EB,-0.559483835E+02_EB/)
THERMO_DATA(175)%A(1:7,2)  = &
   (/-0.229495623E+06_EB,-0.122074100E+03_EB, 0.100912464E+02_EB,-0.364972000E-04_EB, 0.805891000E-08_EB,&
     -0.923085000E-12_EB, 0.427257000E-16_EB/)
THERMO_DATA(175)%B(1:2,2)  = (/-0.228284045E+05_EB,-0.251160548E+02_EB/)
THERMO_DATA(175)%H_F       =   -164.600000_EB
THERMO_DATA(175)%SIGMA     =  4.288_EB ! R-132
THERMO_DATA(175)%EPSOK     =   335.70_EB
THERMO_DATA(175)%PR        =  0.73_EB ! R-132
 
THERMO_DATA(176)%FORMULA   = 'ClO'
THERMO_DATA(176)%NAME      = 'MONOCHLORINE MONOXIDE'
THERMO_DATA(176)%POLY      = 'NASA9'
THERMO_DATA(176)%BANDS     = 2
THERMO_DATA(176)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(176)%A(1:7,1)  = &
   (/-0.168726815E+05_EB, 0.257381225E+03_EB, 0.217584612E+01_EB, 0.643206100E-02_EB,-0.856825000E-05_EB,&
      0.576497000E-08_EB,-0.154577000E-11_EB/)
THERMO_DATA(176)%B(1:2,1)  = (/ 0.982951898E+04_EB, 0.138601050E+02_EB/)
THERMO_DATA(176)%A(1:7,2)  = &
   (/ 0.409376052E+06_EB,-0.176598511E+04_EB, 0.708790063E+01_EB,-0.182845000E-02_EB, 0.710382000E-06_EB,&
     -0.120933000E-09_EB, 0.707644000E-14_EB/)
THERMO_DATA(176)%B(1:2,2)  = (/ 0.215189178E+05_EB,-0.166864555E+02_EB/)
THERMO_DATA(176)%H_F       =    101.621115_EB
THERMO_DATA(176)%SIGMA     =  3.842_EB ! R-132
THERMO_DATA(176)%EPSOK     =   184.00_EB
THERMO_DATA(176)%PR        =  0.69_EB ! R-132
 
THERMO_DATA(177)%FORMULA   = 'CN'
THERMO_DATA(177)%NAME      = 'CYANO RADICAL'
THERMO_DATA(177)%POLY      = 'NASA9'
THERMO_DATA(177)%BANDS     = 3
THERMO_DATA(177)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(177)%A(1:7,1)  = &
   (/ 0.394914857E+04_EB,-0.139159057E+03_EB, 0.493083532E+01_EB,-0.630467100E-02_EB, 0.125684000E-04_EB,&
     -0.987830000E-08_EB, 0.284314000E-11_EB/)
THERMO_DATA(177)%B(1:2,1)  = (/ 0.522845538E+05_EB,-0.276311558E+01_EB/)
THERMO_DATA(177)%A(1:7,2)  = &
   (/-0.222800627E+07_EB, 0.504073339E+04_EB,-0.212189772E+00_EB, 0.135490100E-02_EB, 0.132593000E-06_EB,&
     -0.693701000E-10_EB, 0.549495000E-14_EB/)
THERMO_DATA(177)%B(1:2,2)  = (/ 0.178449613E+05_EB, 0.328256392E+02_EB/)
THERMO_DATA(177)%A(1:7,3)  = &
   (/-0.179479812E+09_EB, 0.105434607E+06_EB,-0.172962417E+02_EB, 0.219489600E-02_EB,-0.850894000E-07_EB,&
      0.931869000E-12_EB, 0.635814000E-17_EB/)
THERMO_DATA(177)%B(1:2,3)  = (/-0.796259412E+06_EB, 0.191313964E+03_EB/)
THERMO_DATA(177)%H_F       =    438.683552_EB
THERMO_DATA(177)%SIGMA     =  3.856_EB ! R-132
THERMO_DATA(177)%EPSOK     =    75.00_EB
THERMO_DATA(177)%PR        =  0.69_EB ! R-132
 
THERMO_DATA(178)%FORMULA   = 'CN'
THERMO_DATA(178)%NAME      = 'CYANO RADICALm'
THERMO_DATA(178)%POLY      = 'NASA9'
THERMO_DATA(178)%BANDS     = 2
THERMO_DATA(178)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(178)%A(1:7,1)  = &
   (/-0.460654139E+05_EB, 0.429417475E+03_EB, 0.232878188E+01_EB,-0.123530000E-03_EB, 0.447846000E-05_EB,&
     -0.440315000E-08_EB, 0.134900000E-11_EB/)
THERMO_DATA(178)%B(1:2,1)  = (/ 0.436207834E+04_EB, 0.114292862E+02_EB/)
THERMO_DATA(178)%A(1:7,2)  = &
   (/ 0.351796472E+06_EB,-0.163047736E+04_EB, 0.560987575E+01_EB,-0.397561000E-03_EB, 0.885615000E-07_EB,&
     -0.972287000E-11_EB, 0.443421000E-15_EB/)
THERMO_DATA(178)%B(1:2,2)  = (/ 0.164797658E+05_EB,-0.117550270E+02_EB/)
THERMO_DATA(178)%H_F       =     63.885104_EB
THERMO_DATA(178)%SIGMA     =  3.856_EB ! R-132
THERMO_DATA(178)%EPSOK     =    75.00_EB
THERMO_DATA(178)%PR        =  0.69_EB ! R-132
 
THERMO_DATA(179)%FORMULA   = 'CN'
THERMO_DATA(179)%NAME      = 'CYANO RADICALp'
THERMO_DATA(179)%POLY      = 'NASA9'
THERMO_DATA(179)%BANDS     = 3
THERMO_DATA(179)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(179)%A(1:7,1)  = &
   (/-0.830290957E+06_EB, 0.877568750E+04_EB,-0.297744356E+02_EB, 0.497689710E-01_EB,-0.130223000E-04_EB,&
     -0.205833000E-07_EB, 0.112684000E-10_EB/)
THERMO_DATA(179)%B(1:2,1)  = (/ 0.170386054E+06_EB, 0.203991882E+03_EB/)
THERMO_DATA(179)%A(1:7,2)  = &
   (/-0.715346308E+07_EB, 0.185725042E+05_EB,-0.108453416E+02_EB, 0.610668100E-02_EB,-0.119121000E-05_EB,&
      0.118485000E-09_EB,-0.479984000E-14_EB/)
THERMO_DATA(179)%B(1:2,2)  = (/ 0.924264496E+05_EB, 0.113534057E+03_EB/)
THERMO_DATA(179)%A(1:7,3)  = &
   (/-0.235491970E+09_EB, 0.143377670E+06_EB,-0.297536027E+02_EB, 0.428054600E-02_EB,-0.270726000E-06_EB,&
      0.817834000E-11_EB,-0.962951000E-16_EB/)
THERMO_DATA(179)%B(1:2,3)  = (/-0.922904714E+06_EB, 0.296462499E+03_EB/)
THERMO_DATA(179)%H_F       =   1798.890900_EB
THERMO_DATA(179)%SIGMA     =  3.856_EB ! R-132
THERMO_DATA(179)%EPSOK     =    75.00_EB
THERMO_DATA(179)%PR        =  0.69_EB ! R-132
 
THERMO_DATA(180)%FORMULA   = 'CO'
THERMO_DATA(180)%NAME      = 'CARBON MONOXIDE'
THERMO_DATA(180)%POLY      = 'NASA9'
THERMO_DATA(180)%BANDS     = 3
THERMO_DATA(180)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(180)%A(1:7,1)  = &
   (/ 0.148904533E+05_EB,-0.292228594E+03_EB, 0.572452717E+01_EB,-0.817623500E-02_EB, 0.145690000E-04_EB,&
     -0.108775000E-07_EB, 0.302794000E-11_EB/)
THERMO_DATA(180)%B(1:2,1)  = (/-0.130313188E+05_EB,-0.785924135E+01_EB/)
THERMO_DATA(180)%A(1:7,2)  = &
   (/ 0.461919725E+06_EB,-0.194470486E+04_EB, 0.591671418E+01_EB,-0.566428000E-03_EB, 0.139881000E-06_EB,&
     -0.178768000E-10_EB, 0.962094000E-15_EB/)
THERMO_DATA(180)%B(1:2,2)  = (/-0.246626108E+04_EB,-0.138741311E+02_EB/)
THERMO_DATA(180)%A(1:7,3)  = &
   (/ 0.886866296E+09_EB,-0.750037784E+06_EB, 0.249547498E+03_EB,-0.395635110E-01_EB, 0.329777000E-05_EB,&
     -0.131841000E-09_EB, 0.199894000E-14_EB/)
THERMO_DATA(180)%B(1:2,3)  = (/ 0.570142113E+07_EB,-0.206070479E+04_EB/)
THERMO_DATA(180)%H_F       =   -110.535196_EB
THERMO_DATA(180)%SIGMA     =  3.690_EB ! R-132
THERMO_DATA(180)%EPSOK     =    91.70_EB
THERMO_DATA(180)%PR        =  0.73_EB ! JPCRD 19(5)
THERMO_DATA(180)%RADCAL_ID = 'CARBON MONOXIDE'
THERMO_DATA(180)%LIQUID    = .TRUE.
THERMO_DATA(180)%T_L(1:2)  = (/65._EB,85._EB/)
THERMO_DATA(180)%A_L(3:4,1)= (/1.9319E3_EB,2.94_EB/)
THERMO_DATA(180)%H_V       = 374327.1563_EB !J/kg
THERMO_DATA(180)%T_REF     = 67.95_EB !K
THERMO_DATA(180)%T_MELT    = 67.95_EB !K
THERMO_DATA(180)%T_BOIL    = 81.63_EB !K
THERMO_DATA(180)%DENSITY   = 788.6_EB !kg/m^3

THERMO_DATA(181)%FORMULA   = 'CO'
THERMO_DATA(181)%NAME      = 'CARBON MONOXIDEp'
THERMO_DATA(181)%POLY      = 'NASA9'
THERMO_DATA(181)%BANDS     = 3
THERMO_DATA(181)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(181)%A(1:7,1)  = &
   (/-0.217878666E+05_EB, 0.128885703E+03_EB, 0.376905755E+01_EB,-0.343173000E-02_EB, 0.819395000E-05_EB,&
     -0.646381000E-08_EB, 0.180373000E-11_EB/)
THERMO_DATA(181)%B(1:2,1)  = (/ 0.148234590E+06_EB, 0.399054707E+01_EB/)
THERMO_DATA(181)%A(1:7,2)  = &
   (/ 0.231684751E+06_EB,-0.105764615E+04_EB, 0.455425778E+01_EB, 0.449552000E-03_EB,-0.248951000E-06_EB,&
      0.526757000E-10_EB,-0.328951000E-14_EB/)
THERMO_DATA(181)%B(1:2,2)  = (/ 0.155505072E+06_EB,-0.387346264E+01_EB/)
THERMO_DATA(181)%A(1:7,3)  = &
   (/-0.303560405E+09_EB, 0.239311839E+06_EB,-0.703499924E+02_EB, 0.113955140E-01_EB,-0.831517000E-06_EB,&
      0.286371000E-10_EB,-0.380327000E-15_EB/)
THERMO_DATA(181)%B(1:2,3)  = (/-0.168861770E+07_EB, 0.629198042E+03_EB/)
THERMO_DATA(181)%H_F       =   1247.789200_EB
THERMO_DATA(181)%SIGMA     =  3.690_EB ! R-132
THERMO_DATA(181)%EPSOK     =    91.70_EB
THERMO_DATA(181)%PR        =  0.73_EB ! JPCRD 19(5)
THERMO_DATA(181)%RADCAL_ID = 'CARBON MONOXIDE'
 
THERMO_DATA(182)%FORMULA   = 'CO2'
THERMO_DATA(182)%NAME      = 'CARBON DIOXIDE'
THERMO_DATA(182)%POLY      = 'NASA9'
THERMO_DATA(182)%BANDS     = 3
THERMO_DATA(182)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(182)%A(1:7,1)  = &
   (/ 0.494365054E+05_EB,-0.626411601E+03_EB, 0.530172524E+01_EB, 0.250381400E-02_EB,-0.212731000E-06_EB,&
     -0.768999000E-09_EB, 0.284968000E-12_EB/)
THERMO_DATA(182)%B(1:2,1)  = (/-0.452819846E+05_EB,-0.704827944E+01_EB/)
THERMO_DATA(182)%A(1:7,2)  = &
   (/ 0.117696242E+06_EB,-0.178879148E+04_EB, 0.829152319E+01_EB,-0.922316000E-04_EB, 0.486368000E-08_EB,&
     -0.189105000E-11_EB, 0.633004000E-15_EB/)
THERMO_DATA(182)%B(1:2,2)  = (/-0.390835059E+05_EB,-0.265266928E+02_EB/)
THERMO_DATA(182)%A(1:7,3)  = &
   (/-0.154442329E+10_EB, 0.101684706E+07_EB,-0.256140523E+03_EB, 0.336940110E-01_EB,-0.218118000E-05_EB,&
      0.699142000E-10_EB,-0.884235000E-15_EB/)
THERMO_DATA(182)%B(1:2,3)  = (/-0.804321451E+07_EB, 0.225417749E+04_EB/)
THERMO_DATA(182)%H_F       =   -393.510000_EB
THERMO_DATA(182)%SIGMA     =  3.941_EB ! R-132
THERMO_DATA(182)%EPSOK     =   195.20_EB
THERMO_DATA(182)%PR        =  0.75_EB ! JPCRD 19(5)
THERMO_DATA(182)%RADCAL_ID = 'CARBON DIOXIDE'

THERMO_DATA(183)%FORMULA   = 'CO2'
THERMO_DATA(183)%NAME      = 'CARBON DIOXIDEp'
THERMO_DATA(183)%POLY      = 'NASA9'
THERMO_DATA(183)%BANDS     = 3
THERMO_DATA(183)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(183)%A(1:7,1)  = &
   (/-0.738303098E+05_EB, 0.108621174E+04_EB,-0.277111274E+01_EB, 0.231846360E-01_EB,-0.257024000E-04_EB,&
      0.145034000E-07_EB,-0.333447000E-11_EB/)
THERMO_DATA(183)%B(1:2,1)  = (/ 0.107178492E+06_EB, 0.405488521E+02_EB/)
THERMO_DATA(183)%A(1:7,2)  = &
   (/-0.169505168E+06_EB,-0.806646973E+03_EB, 0.800282846E+01_EB,-0.157721000E-03_EB, 0.256676000E-07_EB,&
     -0.240420000E-11_EB, 0.167745000E-15_EB/)
THERMO_DATA(183)%B(1:2,2)  = (/ 0.115438948E+06_EB,-0.213356777E+02_EB/)
THERMO_DATA(183)%A(1:7,3)  = &
   (/-0.836540906E+08_EB, 0.533332751E+05_EB,-0.562169836E+01_EB, 0.149143900E-02_EB,-0.755325000E-07_EB,&
      0.179466000E-11_EB,-0.162752000E-16_EB/)
THERMO_DATA(183)%B(1:2,3)  = (/-0.311191766E+06_EB, 0.967388489E+02_EB/)
THERMO_DATA(183)%H_F       =    944.687989_EB
THERMO_DATA(183)%SIGMA     =  3.941_EB ! R-132
THERMO_DATA(183)%EPSOK     =   195.20_EB
THERMO_DATA(183)%PR        =  0.75_EB ! JPCRD 19(5)
THERMO_DATA(183)%RADCAL_ID = 'CARBON DIOXIDE'
 
THERMO_DATA(184)%FORMULA   = 'COS'
THERMO_DATA(184)%NAME      = 'CARBONYL SULFIDE'
THERMO_DATA(184)%POLY      = 'NASA9'
THERMO_DATA(184)%BANDS     = 2
THERMO_DATA(184)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(184)%A(1:7,1)  = &
   (/ 0.854787643E+05_EB,-0.131946482E+04_EB, 0.973525724E+01_EB,-0.687083100E-02_EB, 0.108233000E-04_EB,&
     -0.770560000E-08_EB, 0.207857000E-11_EB/)
THERMO_DATA(184)%B(1:2,1)  = (/-0.119165768E+05_EB,-0.299198859E+02_EB/)
THERMO_DATA(184)%A(1:7,2)  = &
   (/ 0.195909857E+06_EB,-0.175616769E+04_EB, 0.871043034E+01_EB,-0.413942000E-03_EB, 0.101524000E-06_EB,&
     -0.115961000E-10_EB, 0.569105000E-15_EB/)
THERMO_DATA(184)%B(1:2,2)  = (/-0.892709669E+04_EB,-0.263632802E+02_EB/)
THERMO_DATA(184)%H_F       =   -141.700000_EB
THERMO_DATA(184)%SIGMA     =  4.130_EB ! R-132
THERMO_DATA(184)%EPSOK     =   336.00_EB
THERMO_DATA(184)%PR        =  0.71_EB ! R-132
 
THERMO_DATA(185)%FORMULA   = 'CP'
THERMO_DATA(185)%NAME      = 'CARBON MONOPHOSPHIDE'
THERMO_DATA(185)%POLY      = 'NASA9'
THERMO_DATA(185)%BANDS     = 2
THERMO_DATA(185)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(185)%A(1:7,1)  = &
   (/-0.452394011E+05_EB, 0.775882814E+03_EB,-0.145394791E+01_EB, 0.139771370E-01_EB,-0.162449000E-04_EB,&
      0.951408000E-08_EB,-0.221028000E-11_EB/)
THERMO_DATA(185)%B(1:2,1)  = (/ 0.579263467E+05_EB, 0.331164792E+02_EB/)
THERMO_DATA(185)%A(1:7,2)  = &
   (/-0.544993715E+07_EB, 0.168834593E+05_EB,-0.159569220E+02_EB, 0.113602880E-01_EB,-0.284654000E-05_EB,&
      0.337936000E-09_EB,-0.155446000E-13_EB/)
THERMO_DATA(185)%B(1:2,2)  = (/-0.455451774E+05_EB, 0.145132406E+03_EB/)
THERMO_DATA(185)%H_F       =    520.161805_EB
THERMO_DATA(185)%SIGMA     =  4.400_EB ! R-132
THERMO_DATA(185)%EPSOK     =   227.00_EB
THERMO_DATA(185)%PR        =  0.69_EB ! R-132
 
THERMO_DATA(186)%FORMULA   = 'CS'
THERMO_DATA(186)%NAME      = 'CARBON MONOSULFIDE'
THERMO_DATA(186)%POLY      = 'NASA9'
THERMO_DATA(186)%BANDS     = 2
THERMO_DATA(186)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(186)%A(1:7,1)  = &
   (/-0.492484412E+05_EB, 0.816696810E+03_EB,-0.154299841E+01_EB, 0.138032470E-01_EB,-0.157441000E-04_EB,&
      0.916971000E-08_EB,-0.216970000E-11_EB/)
THERMO_DATA(186)%B(1:2,1)  = (/ 0.286518288E+05_EB, 0.330854133E+02_EB/)
THERMO_DATA(186)%A(1:7,2)  = &
   (/-0.971957476E+06_EB, 0.233920128E+04_EB, 0.170939040E+01_EB, 0.157717900E-02_EB,-0.414634000E-06_EB,&
      0.450476000E-10_EB,-0.594546000E-15_EB/)
THERMO_DATA(186)%B(1:2,2)  = (/ 0.168102073E+05_EB, 0.187404822E+02_EB/)
THERMO_DATA(186)%H_F       =    278.550078_EB
THERMO_DATA(186)%SIGMA     =  4.216_EB ! R-132
THERMO_DATA(186)%EPSOK     =   199.40_EB
THERMO_DATA(186)%PR        =  0.69_EB ! R-132
 
THERMO_DATA(187)%FORMULA   = 'CS2'
THERMO_DATA(187)%NAME      = 'CARBON DISULFIDE'
THERMO_DATA(187)%POLY      = 'NASA9'
THERMO_DATA(187)%BANDS     = 2
THERMO_DATA(187)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(187)%A(1:7,1)  = &
   (/ 0.161356048E+05_EB,-0.464948147E+03_EB, 0.629793879E+01_EB, 0.188889700E-02_EB, 0.303193000E-06_EB,&
     -0.173765000E-08_EB, 0.779399000E-12_EB/)
THERMO_DATA(187)%B(1:2,1)  = (/ 0.147776112E+05_EB,-0.930338213E+01_EB/)
THERMO_DATA(187)%A(1:7,2)  = &
   (/-0.139041972E+07_EB, 0.335497550E+04_EB, 0.301924772E+01_EB, 0.287643800E-02_EB,-0.907681000E-06_EB,&
      0.137409000E-09_EB,-0.699958000E-14_EB/)
THERMO_DATA(187)%B(1:2,2)  = (/-0.101389805E+05_EB, 0.156511370E+02_EB/)
THERMO_DATA(187)%H_F       =    116.700000_EB
THERMO_DATA(187)%SIGMA     =  4.483_EB ! R-132
THERMO_DATA(187)%EPSOK     =   467.00_EB
THERMO_DATA(187)%PR        =  7.15_EB ! R-132
 
THERMO_DATA(188)%FORMULA   = 'F'
THERMO_DATA(188)%NAME      = 'FLUORINE ATOM'
THERMO_DATA(188)%POLY      = 'NASA9'
THERMO_DATA(188)%BANDS     = 3
THERMO_DATA(188)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(188)%A(1:7,1)  = &
   (/ 0.113740909E+04_EB,-0.145339280E+03_EB, 0.407740361E+01_EB,-0.430336000E-02_EB, 0.572890000E-05_EB,&
     -0.381931000E-08_EB, 0.101832000E-11_EB/)
THERMO_DATA(188)%B(1:2,1)  = (/ 0.931111012E+04_EB,-0.355898265E+01_EB/)
THERMO_DATA(188)%A(1:7,2)  = &
   (/ 0.147350623E+05_EB, 0.814992736E+02_EB, 0.244437182E+01_EB, 0.212021000E-04_EB,-0.454692000E-08_EB,&
      0.510953000E-12_EB,-0.233389000E-16_EB/)
THERMO_DATA(188)%B(1:2,2)  = (/ 0.838837465E+04_EB, 0.547871064E+01_EB/)
THERMO_DATA(188)%A(1:7,3)  = &
   (/-0.292672476E+08_EB, 0.177567492E+05_EB,-0.181446326E+01_EB, 0.535120000E-03_EB,-0.351362000E-07_EB,&
      0.110152000E-11_EB,-0.106129000E-16_EB/)
THERMO_DATA(188)%B(1:2,3)  = (/-0.131964272E+06_EB, 0.424881456E+02_EB/)
THERMO_DATA(188)%H_F       =     79.380000_EB
THERMO_DATA(188)%SIGMA     =  2.980_EB ! R-132
THERMO_DATA(188)%EPSOK     =   112.60_EB
THERMO_DATA(188)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(189)%FORMULA   = 'F'
THERMO_DATA(189)%NAME      = 'FLUORINE ATOMm'
THERMO_DATA(189)%POLY      = 'NASA9'
THERMO_DATA(189)%BANDS     = 3
THERMO_DATA(189)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(189)%A(1:7,1)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(189)%B(1:2,1)  = (/-0.314257244E+05_EB, 0.326488271E+01_EB/)
THERMO_DATA(189)%A(1:7,2)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(189)%B(1:2,2)  = (/-0.314257244E+05_EB, 0.326488271E+01_EB/)
THERMO_DATA(189)%A(1:7,3)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(189)%B(1:2,3)  = (/-0.314257244E+05_EB, 0.326488271E+01_EB/)
THERMO_DATA(189)%H_F       =   -255.092072_EB
THERMO_DATA(189)%SIGMA     =  2.980_EB ! R-132
THERMO_DATA(189)%EPSOK     =   112.60_EB
THERMO_DATA(189)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(190)%FORMULA   = 'F'
THERMO_DATA(190)%NAME      = 'FLUORINE ATOMp'
THERMO_DATA(190)%POLY      = 'NASA9'
THERMO_DATA(190)%BANDS     = 3
THERMO_DATA(190)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(190)%A(1:7,1)  = &
   (/-0.387168019E+05_EB, 0.321881566E+03_EB, 0.220092045E+01_EB,-0.245549000E-03_EB, 0.785836000E-06_EB,&
     -0.643599000E-09_EB, 0.183979000E-12_EB/)
THERMO_DATA(190)%B(1:2,1)  = (/ 0.209883094E+06_EB, 0.781699924E+01_EB/)
THERMO_DATA(190)%A(1:7,2)  = &
   (/ 0.164963566E+05_EB, 0.133735148E+03_EB, 0.233252294E+01_EB, 0.121528000E-03_EB,-0.480104000E-07_EB,&
      0.902723000E-11_EB,-0.547066000E-15_EB/)
THERMO_DATA(190)%B(1:2,2)  = (/ 0.211074533E+06_EB, 0.662581709E+01_EB/)
THERMO_DATA(190)%A(1:7,3)  = &
   (/ 0.759961933E+07_EB,-0.139110656E+04_EB, 0.171487153E+01_EB, 0.242831000E-03_EB,-0.189486000E-07_EB,&
      0.642083000E-12_EB,-0.825798000E-17_EB/)
THERMO_DATA(190)%B(1:2,3)  = (/ 0.226912600E+06_EB, 0.110284894E+02_EB/)
THERMO_DATA(190)%H_F       =   1766.816330_EB
THERMO_DATA(190)%SIGMA     =  2.980_EB ! R-132
THERMO_DATA(190)%EPSOK     =   112.60_EB
THERMO_DATA(190)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(191)%FORMULA   = 'F2'
THERMO_DATA(191)%NAME      = 'FLUORINE'
THERMO_DATA(191)%POLY      = 'NASA9'
THERMO_DATA(191)%BANDS     = 2
THERMO_DATA(191)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(191)%A(1:7,1)  = &
   (/ 0.101817631E+05_EB, 0.227424118E+02_EB, 0.197135304E+01_EB, 0.815160400E-02_EB,-0.114896000E-04_EB,&
      0.795865000E-08_EB,-0.216708000E-11_EB/)
THERMO_DATA(191)%B(1:2,1)  = (/-0.958694300E+03_EB, 0.113060030E+02_EB/)
THERMO_DATA(191)%A(1:7,2)  = &
   (/-0.294116779E+07_EB, 0.945659770E+04_EB,-0.773861615E+01_EB, 0.764471300E-02_EB,-0.224101000E-05_EB,&
      0.291585000E-09_EB,-0.142503000E-13_EB/)
THERMO_DATA(191)%B(1:2,2)  = (/-0.607100561E+05_EB, 0.842383508E+02_EB/)
THERMO_DATA(191)%H_F       =      0.000000_EB
THERMO_DATA(191)%SIGMA     =  3.357_EB ! R-132
THERMO_DATA(191)%EPSOK     =   112.60_EB
THERMO_DATA(191)%PR        =  0.68_EB ! R-132
 
THERMO_DATA(192)%FORMULA   = 'FCN'
THERMO_DATA(192)%NAME      = 'CYANONGEN FLUROIDE'
THERMO_DATA(192)%POLY      = 'NASA9'
THERMO_DATA(192)%BANDS     = 2
THERMO_DATA(192)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(192)%A(1:7,1)  = &
   (/ 0.398445412E+05_EB,-0.698865536E+03_EB, 0.705883966E+01_EB,-0.140486300E-02_EB, 0.396465000E-05_EB,&
     -0.304561000E-08_EB, 0.792305000E-12_EB/)
THERMO_DATA(192)%B(1:2,1)  = (/ 0.617262757E+04_EB,-0.150564317E+02_EB/)
THERMO_DATA(192)%A(1:7,2)  = &
   (/ 0.398187355E+06_EB,-0.230297108E+04_EB, 0.902708139E+01_EB,-0.522871000E-03_EB, 0.119106000E-06_EB,&
     -0.128029000E-10_EB, 0.573381000E-15_EB/)
THERMO_DATA(192)%B(1:2,2)  = (/ 0.158844945E+05_EB,-0.298497198E+02_EB/)
THERMO_DATA(192)%H_F       =     34.327854_EB
THERMO_DATA(192)%SIGMA     =  3.578_EB ! R-132
THERMO_DATA(192)%EPSOK     =   168.00_EB
THERMO_DATA(192)%PR        =  0.71_EB ! R-132
 
THERMO_DATA(193)%FORMULA   = 'H'
THERMO_DATA(193)%NAME      = 'HYDROGEN ATOM'
THERMO_DATA(193)%POLY      = 'NASA9'
THERMO_DATA(193)%BANDS     = 3
THERMO_DATA(193)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(193)%A(1:7,1)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(193)%B(1:2,1)  = (/ 0.254737080E+05_EB,-0.446682853E+00_EB/)
THERMO_DATA(193)%A(1:7,2)  = &
   (/ 0.607877425E+02_EB,-0.181935442E+00_EB, 0.250021182E+01_EB,-0.122651000E-06_EB, 0.373288000E-10_EB,&
     -0.568774000E-14_EB, 0.341021000E-18_EB/)
THERMO_DATA(193)%B(1:2,2)  = (/ 0.254748640E+05_EB,-0.448191777E+00_EB/)
THERMO_DATA(193)%A(1:7,3)  = &
   (/ 0.217375769E+09_EB,-0.131203540E+06_EB, 0.339917420E+02_EB,-0.381400000E-02_EB, 0.243285000E-06_EB,&
     -0.769428000E-11_EB, 0.964411000E-16_EB/)
THERMO_DATA(193)%B(1:2,3)  = (/ 0.106763809E+07_EB,-0.274230105E+03_EB/)
THERMO_DATA(193)%H_F       =    217.998828_EB
THERMO_DATA(193)%SIGMA     =  2.708_EB ! R-132
THERMO_DATA(193)%EPSOK     =    37.00_EB
THERMO_DATA(193)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(194)%FORMULA   = 'H'
THERMO_DATA(194)%NAME      = 'HYDROGEN ATOMm'
THERMO_DATA(194)%POLY      = 'NASA9'
THERMO_DATA(194)%BANDS     = 3
THERMO_DATA(194)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(194)%A(1:7,1)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(194)%B(1:2,1)  = (/ 0.159761549E+05_EB,-0.113901387E+01_EB/)
THERMO_DATA(194)%A(1:7,2)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(194)%B(1:2,2)  = (/ 0.159761549E+05_EB,-0.113901387E+01_EB/)
THERMO_DATA(194)%A(1:7,3)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(194)%B(1:2,3)  = (/ 0.159761549E+05_EB,-0.113901387E+01_EB/)
THERMO_DATA(194)%H_F       =    139.031328_EB
THERMO_DATA(194)%SIGMA     =  2.708_EB ! R-132
THERMO_DATA(194)%EPSOK     =    37.00_EB
THERMO_DATA(194)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(195)%FORMULA   = 'H'
THERMO_DATA(195)%NAME      = 'HYDROGEN ATOMp'
THERMO_DATA(195)%POLY      = 'NASA9'
THERMO_DATA(195)%BANDS     = 3
THERMO_DATA(195)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(195)%A(1:7,1)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(195)%B(1:2,1)  = (/ 0.184021488E+06_EB,-0.114064664E+01_EB/)
THERMO_DATA(195)%A(1:7,2)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(195)%B(1:2,2)  = (/ 0.184021488E+06_EB,-0.114064664E+01_EB/)
THERMO_DATA(195)%A(1:7,3)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(195)%B(1:2,3)  = (/ 0.184021488E+06_EB,-0.114064664E+01_EB/)
THERMO_DATA(195)%H_F       =   1536.245930_EB
THERMO_DATA(195)%SIGMA     =  2.708_EB ! R-132
THERMO_DATA(195)%EPSOK     =    37.00_EB
THERMO_DATA(195)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(196)%FORMULA   = 'H2'
THERMO_DATA(196)%NAME      = 'HYDROGEN'
THERMO_DATA(196)%POLY      = 'NASA9'
THERMO_DATA(196)%BANDS     = 3
THERMO_DATA(196)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(196)%A(1:7,1)  = &
   (/ 0.407832321E+05_EB,-0.800918604E+03_EB, 0.821470201E+01_EB,-0.126971450E-01_EB, 0.175361000E-04_EB,&
     -0.120286000E-07_EB, 0.336809000E-11_EB/)
THERMO_DATA(196)%B(1:2,1)  = (/ 0.268248466E+04_EB,-0.304378884E+02_EB/)
THERMO_DATA(196)%A(1:7,2)  = &
   (/ 0.560812801E+06_EB,-0.837150474E+03_EB, 0.297536453E+01_EB, 0.125224900E-02_EB,-0.374072000E-06_EB,&
      0.593663000E-10_EB,-0.360699000E-14_EB/)
THERMO_DATA(196)%B(1:2,2)  = (/ 0.533982441E+04_EB,-0.220277477E+01_EB/)
THERMO_DATA(196)%A(1:7,3)  = &
   (/ 0.496688412E+09_EB,-0.314754715E+06_EB, 0.798412188E+02_EB,-0.841478900E-02_EB, 0.475325000E-06_EB,&
     -0.137187000E-10_EB, 0.160546000E-15_EB/)
THERMO_DATA(196)%B(1:2,3)  = (/ 0.248843352E+07_EB,-0.669572811E+03_EB/)
THERMO_DATA(196)%H_F       =      0.000000_EB
THERMO_DATA(196)%SIGMA     =  2.827_EB ! R-132
THERMO_DATA(196)%EPSOK     =    59.70_EB
THERMO_DATA(196)%PR        =  0.69_EB ! Bergman
THERMO_DATA(196)%LIQUID    = .TRUE.
THERMO_DATA(196)%T_L(1:2)  = (/14._EB,21._EB/)
THERMO_DATA(196)%A_L(3:4,1)= (/405._EB,445._EB/)
THERMO_DATA(196)%H_V = 404754.6321_EB !J/kg
THERMO_DATA(196)%T_REF = 14._EB !K
THERMO_DATA(196)%T_MELT = 14._EB !K
THERMO_DATA(196)%T_BOIL = 20.28_EB !K
THERMO_DATA(196)%DENSITY = 71._EB !kg/m^3
THERMO_DATA(196)%K = 0.1185_EB !W/m/K
THERMO_DATA(196)%MU = 0.0000131_EB !N.s/m^2
THERMO_DATA(196)%BETA = 0.0209_EB !1/K


THERMO_DATA(197)%FORMULA   = 'H2'
THERMO_DATA(197)%NAME      = 'HYDROGENm'
THERMO_DATA(197)%POLY      = 'NASA9'
THERMO_DATA(197)%BANDS     = 2
THERMO_DATA(197)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(197)%A(1:7,1)  = &
   (/-0.975356567E+05_EB, 0.122116624E+04_EB,-0.226458884E+01_EB, 0.123720220E-01_EB,-0.112710000E-04_EB,&
      0.536724000E-08_EB,-0.104942000E-11_EB/)
THERMO_DATA(197)%B(1:2,1)  = (/ 0.212139995E+05_EB, 0.305055614E+02_EB/)
THERMO_DATA(197)%A(1:7,2)  = &
   (/ 0.959927562E+05_EB,-0.914468288E+03_EB, 0.514941881E+01_EB,-0.101656000E-03_EB, 0.544692000E-07_EB,&
     -0.615517000E-11_EB, 0.282245000E-15_EB/)
THERMO_DATA(197)%B(1:2,2)  = (/ 0.323410518E+05_EB,-0.144078098E+02_EB/)
THERMO_DATA(197)%H_F       =    235.168362_EB
THERMO_DATA(197)%SIGMA     =  2.827_EB ! R-132
THERMO_DATA(197)%EPSOK     =    59.70_EB
THERMO_DATA(197)%PR        =  0.69_EB ! Bergman
 
THERMO_DATA(198)%FORMULA   = 'H2'
THERMO_DATA(198)%NAME      = 'HYDROGENp'
THERMO_DATA(198)%POLY      = 'NASA9'
THERMO_DATA(198)%BANDS     = 3
THERMO_DATA(198)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(198)%A(1:7,1)  = &
   (/-0.312088606E+05_EB, 0.230462291E+03_EB, 0.333556442E+01_EB,-0.241905700E-02_EB, 0.700602000E-05_EB,&
     -0.561001000E-08_EB, 0.156417000E-11_EB/)
THERMO_DATA(198)%B(1:2,1)  = (/ 0.177410464E+06_EB,-0.827852376E+00_EB/)
THERMO_DATA(198)%A(1:7,2)  = &
   (/ 0.167222596E+07_EB,-0.659518499E+04_EB, 0.127932192E+02_EB,-0.550934500E-02_EB, 0.203067000E-05_EB,&
     -0.335103000E-09_EB, 0.194609000E-13_EB/)
THERMO_DATA(198)%B(1:2,2)  = (/ 0.218999955E+06_EB,-0.679271078E+02_EB/)
THERMO_DATA(198)%A(1:7,3)  = &
   (/-0.182207098E+09_EB, 0.101819627E+06_EB,-0.124583190E+02_EB, 0.107664800E-02_EB,-0.393229000E-07_EB,&
      0.628541000E-12_EB,-0.209472000E-17_EB/)
THERMO_DATA(198)%B(1:2,3)  = (/-0.651310150E+06_EB, 0.147141537E+03_EB/)
THERMO_DATA(198)%H_F       =   1494.672430_EB
THERMO_DATA(198)%SIGMA     =  2.827_EB ! R-132
THERMO_DATA(198)%EPSOK     =    59.70_EB
THERMO_DATA(198)%PR        =  0.69_EB ! Bergman
 
THERMO_DATA(199)%FORMULA   = 'H2C4O'
THERMO_DATA(199)%NAME      = 'PROPADIENONE'
THERMO_DATA(199)%POLY      = 'NASA7'
THERMO_DATA(199)%BANDS     = 2
THERMO_DATA(199)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.400000000E+04_EB/)
THERMO_DATA(199)%A(1:5,1)  = &
   (/ 0.481097100E+01_EB, 0.131399900E-01_EB, 0.986507300E-06_EB,-0.612072000E-08_EB, 0.164000300E-11_EB/)
THERMO_DATA(199)%B(1:2,1)  = (/ 0.254580300E+05_EB, 0.211342400E+01_EB/)
THERMO_DATA(199)%A(1:5,2)  = &
   (/ 0.102688800E+02_EB, 0.489616400E-02_EB,-0.488508100E-06_EB,-0.270856600E-09_EB, 0.510701300E-13_EB/)
THERMO_DATA(199)%B(1:2,2)  = (/ 0.234690300E+05_EB,-0.281598500E+02_EB/)
THERMO_DATA(199)%H_F       =   228.4305307_EB
THERMO_DATA(199)%SIGMA     =  5.180_EB ! GRM3
THERMO_DATA(199)%EPSOK     =   357.00_EB
THERMO_DATA(199)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(200)%FORMULA   = 'H2CN'
THERMO_DATA(200)%NAME      = 'METHYLENE-AMIDOGEN'
THERMO_DATA(200)%POLY      = 'NASA7'
THERMO_DATA(200)%BANDS     = 2
THERMO_DATA(200)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(200)%A(1:5,1)  = &
   (/ 0.285166100E+01_EB, 0.569523310E-02_EB, 0.107114000E-05_EB,-0.162261200E-08_EB,-0.235110810E-12_EB/)
THERMO_DATA(200)%B(1:2,1)  = (/ 0.286378200E+05_EB, 0.899275110E+01_EB/)
THERMO_DATA(200)%A(1:5,2)  = &
   (/ 0.520970300E+01_EB, 0.296929110E-02_EB,-0.285558910E-06_EB,-0.163555000E-09_EB, 0.304325890E-13_EB/)
THERMO_DATA(200)%B(1:2,2)  = (/ 0.276771090E+05_EB,-0.444447800E+01_EB/)
THERMO_DATA(200)%H_F       =   247.3332912_EB
THERMO_DATA(200)%SIGMA     =  3.630_EB ! GRM3
THERMO_DATA(200)%EPSOK     =   569.00_EB
THERMO_DATA(200)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(201)%FORMULA   = 'H2O'
THERMO_DATA(201)%NAME      = 'WATER VAPOR'
THERMO_DATA(201)%POLY      = 'NASA9'
THERMO_DATA(201)%BANDS     = 2
THERMO_DATA(201)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(201)%A(1:7,1)  = &
   (/-0.394796083E+05_EB, 0.575573102E+03_EB, 0.931782653E+00_EB, 0.722271300E-02_EB,-0.734256000E-05_EB,&
      0.495504000E-08_EB,-0.133693000E-11_EB/)
THERMO_DATA(201)%B(1:2,1)  = (/-0.330397431E+05_EB, 0.172420578E+02_EB/)
THERMO_DATA(201)%A(1:7,2)  = &
   (/ 0.103497210E+07_EB,-0.241269856E+04_EB, 0.464611078E+01_EB, 0.229199800E-02_EB,-0.683683000E-06_EB,&
      0.942647000E-10_EB,-0.482238000E-14_EB/)
THERMO_DATA(201)%B(1:2,2)  = (/-0.138428651E+05_EB,-0.797814851E+01_EB/)
THERMO_DATA(201)%H_F       =   -241.826000_EB
THERMO_DATA(201)%SIGMA     =  2.641_EB ! R-132
THERMO_DATA(201)%EPSOK     =   809.10_EB
THERMO_DATA(201)%PR        =  1.00_EB ! Bergman
THERMO_DATA(201)%RADCAL_ID = 'WATER VAPOR'
THERMO_DATA(201)%LIQUID    = .TRUE.
THERMO_DATA(201)%BANDS_L   = 2
THERMO_DATA(201)%T(1:3)    = (/273.15_EB,373.15_EB,600._EB/)
THERMO_DATA(201)%A_L(1:7,1)= (/1326371304._EB,-24482953.88_EB,187942.8776_EB,-767.899505_EB,1.761556813_EB,&
                               -0.002151167128_EB,1.092570813E-06_EB/)
THERMO_DATA(201)%A_L(1:7,2)= (/1263631001._EB,-16803802.49_EB,92782.3479_EB,-272.237395_EB,0.447924376_EB,&
                               -0.000391939743_EB,1.425743266E-07_EB/)
THERMO_DATA(201)%CP_UNIT   = 8314.472_EB / 18.01528_EB !J/kg/K
THERMO_DATA(201)%H_V       = 2500792.3981106_EB !J/kg
THERMO_DATA(201)%T_REF     = 273.15_EB !K
THERMO_DATA(201)%T_MELT    = 273.15_EB !K1.42574E-07

THERMO_DATA(201)%T_BOIL    = 373.15_EB !K
THERMO_DATA(201)%DENSITY   = 1000._EB !kg/m^3
THERMO_DATA(201)%BETA      = 0.000889_EB !1/K
THERMO_DATA(201)%MU        = 0.00089_EB !Ns/m^2
THERMO_DATA(201)%K         = 0.609 !W/m/K

THERMO_DATA(202)%FORMULA   = 'H2O'
THERMO_DATA(202)%NAME      = 'WATER VAPORp'
THERMO_DATA(202)%POLY      = 'NASA9'
THERMO_DATA(202)%BANDS     = 3
THERMO_DATA(202)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(202)%A(1:7,1)  = &
   (/-0.175389272E+04_EB, 0.224985005E+03_EB, 0.198940067E+01_EB, 0.611789500E-02_EB,-0.709544000E-05_EB,&
      0.554766000E-08_EB,-0.170434000E-11_EB/)
THERMO_DATA(202)%B(1:2,1)  = (/ 0.115958595E+06_EB, 0.113540964E+02_EB/)
THERMO_DATA(202)%A(1:7,2)  = &
   (/ 0.622871426E+06_EB,-0.286425749E+04_EB, 0.771756556E+01_EB,-0.902780000E-03_EB, 0.617744000E-06_EB,&
     -0.120146000E-09_EB, 0.740771000E-14_EB/)
THERMO_DATA(202)%B(1:2,2)  = (/ 0.134208665E+06_EB,-0.263661792E+02_EB/)
THERMO_DATA(202)%A(1:7,3)  = &
   (/-0.204092211E+08_EB,-0.107269172E+04_EB, 0.113197739E+02_EB,-0.736445000E-03_EB, 0.541645000E-07_EB,&
     -0.190087000E-11_EB, 0.260476000E-16_EB/)
THERMO_DATA(202)%B(1:2,3)  = (/ 0.104256594E+06_EB,-0.546727232E+02_EB/)
THERMO_DATA(202)%H_F       =    981.601766_EB
THERMO_DATA(202)%SIGMA     =  2.641_EB ! R-132
THERMO_DATA(202)%EPSOK     =   809.10_EB
THERMO_DATA(202)%PR        =  1.00_EB ! Bergman
THERMO_DATA(202)%RADCAL_ID = 'WATER VAPOR'
 
THERMO_DATA(203)%FORMULA   = 'H2O2'
THERMO_DATA(203)%NAME      = 'HYDROGEN PEROXIDE'
THERMO_DATA(203)%POLY      = 'NASA9'
THERMO_DATA(203)%BANDS     = 2
THERMO_DATA(203)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(203)%A(1:7,1)  = &
   (/-0.927953358E+05_EB, 0.156474839E+04_EB,-0.597646014E+01_EB, 0.327074450E-01_EB,-0.393219000E-04_EB,&
      0.250926000E-07_EB,-0.646505000E-11_EB/)
THERMO_DATA(203)%B(1:2,1)  = (/-0.249400473E+05_EB, 0.587717418E+02_EB/)
THERMO_DATA(203)%A(1:7,2)  = &
   (/ 0.148942803E+07_EB,-0.517082178E+04_EB, 0.112820497E+02_EB,-0.804240000E-04_EB,-0.181838000E-07_EB,&
      0.694727000E-11_EB,-0.482783000E-15_EB/)
THERMO_DATA(203)%B(1:2,2)  = (/ 0.141825104E+05_EB,-0.465085566E+02_EB/)
THERMO_DATA(203)%H_F       =   -135.880000_EB
THERMO_DATA(203)%SIGMA     =  4.196_EB ! R-132
THERMO_DATA(203)%EPSOK     =   289.30_EB
THERMO_DATA(203)%PR        =  0.71_EB ! R-132
THERMO_DATA(203)%LIQUID    = .TRUE.
THERMO_DATA(203)%T_L(1:2)  = (/290._EB,350._EB/)
THERMO_DATA(203)%A_L(3:4,1)= (/783.43_EB,2.1107_EB/)
THERMO_DATA(203)%H_V       = 1387000._EB !J/kg
THERMO_DATA(203)%T_REF     = 423.3_EB !K
THERMO_DATA(203)%T_MELT    = 272.72_EB !K
THERMO_DATA(203)%T_BOIL    = 423.3_EB !K
THERMO_DATA(203)%DENSITY   = 1450._EB !kg/m^3
THERMO_DATA(203)%MU        = 0.001189_EB !N.s/m^2
THERMO_DATA(203)%K         = 0.363_EB !W/m/K
THERMO_DATA(203)%BETA      = 0.00225_EB !1/K

THERMO_DATA(204)%FORMULA   = 'H2S'
THERMO_DATA(204)%NAME      = 'HYDROGEN SULFIDE'
THERMO_DATA(204)%POLY      = 'NASA9'
THERMO_DATA(204)%BANDS     = 2
THERMO_DATA(204)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(204)%A(1:7,1)  = &
   (/ 0.954380881E+04_EB,-0.687517508E+02_EB, 0.405492196E+01_EB,-0.301456000E-03_EB, 0.376850000E-05_EB,&
     -0.223936000E-08_EB, 0.308686000E-12_EB/)
THERMO_DATA(204)%B(1:2,1)  = (/-0.327845728E+04_EB, 0.141519469E+01_EB/)
THERMO_DATA(204)%A(1:7,2)  = &
   (/ 0.143004022E+07_EB,-0.528402865E+04_EB, 0.101618212E+02_EB,-0.970385000E-03_EB, 0.215400000E-06_EB,&
     -0.216970000E-10_EB, 0.931816000E-15_EB/)
THERMO_DATA(204)%B(1:2,2)  = (/ 0.290869621E+05_EB,-0.434916039E+02_EB/)
THERMO_DATA(204)%H_F       =    -20.600000_EB
THERMO_DATA(204)%SIGMA     =  3.623_EB ! R-132
THERMO_DATA(204)%EPSOK     =   301.10_EB
THERMO_DATA(204)%PR        =  0.70_EB ! R-132
THERMO_DATA(204)%LIQUID    = .TRUE.
THERMO_DATA(204)%T_L(1:2)  = (/190._EB,210._EB/)
THERMO_DATA(204)%A_L(3:4,1)= (/1866.8_EB,0.64_EB/)
THERMO_DATA(204)%H_V       = 607378.682710089_EB !J/kg
THERMO_DATA(204)%T_REF     = 200._EB !K
THERMO_DATA(204)%T_MELT    = 190.85_EB !K
THERMO_DATA(204)%T_BOIL    = 212.87_EB !K
THERMO_DATA(204)%DENSITY   = 1360._EB !kg/m^3

THERMO_DATA(205)%FORMULA   = 'H3O'
THERMO_DATA(205)%NAME      = 'OXONIUM'
THERMO_DATA(205)%POLY      = 'NASA9'
THERMO_DATA(205)%BANDS     = 3
THERMO_DATA(205)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(205)%A(1:7,1)  = &
   (/-0.644764015E+05_EB, 0.118181792E+04_EB,-0.380189306E+01_EB, 0.222062830E-01_EB,-0.244534000E-04_EB,&
      0.157330000E-07_EB,-0.415884000E-11_EB/)
THERMO_DATA(205)%B(1:2,1)  = (/ 0.653061332E+05_EB, 0.428272313E+02_EB/)
THERMO_DATA(205)%A(1:7,2)  = &
   (/ 0.295512620E+07_EB,-0.918566941E+04_EB, 0.134139870E+02_EB,-0.559034000E-03_EB, 0.113839000E-07_EB,&
      0.725993000E-11_EB,-0.613373000E-15_EB/)
THERMO_DATA(205)%B(1:2,2)  = (/ 0.129053426E+06_EB,-0.702182818E+02_EB/)
THERMO_DATA(205)%A(1:7,3)  = &
   (/-0.159122859E+08_EB, 0.489872721E+04_EB, 0.888133682E+01_EB, 0.129924000E-03_EB,-0.816925000E-08_EB,&
      0.264912000E-12_EB,-0.347287000E-17_EB/)
THERMO_DATA(205)%B(1:2,3)  = (/ 0.209017840E+05_EB,-0.321768335E+02_EB/)
THERMO_DATA(205)%H_F       =    598.000000_EB
THERMO_DATA(205)%SIGMA     =  3.150_EB ! GRM3
THERMO_DATA(205)%EPSOK     =   106.20_EB
THERMO_DATA(205)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(206)%FORMULA   = 'HBr'
THERMO_DATA(206)%NAME      = 'HYDROGEN BROMIDE'
THERMO_DATA(206)%POLY      = 'NASA9'
THERMO_DATA(206)%BANDS     = 2
THERMO_DATA(206)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(206)%A(1:7,1)  = &
   (/ 0.252722250E+05_EB,-0.406511027E+03_EB, 0.604311661E+01_EB,-0.771788300E-02_EB, 0.114912000E-04_EB,&
     -0.729363000E-08_EB, 0.174741000E-11_EB/)
THERMO_DATA(206)%B(1:2,1)  = (/-0.351041455E+04_EB,-0.990318629E+01_EB/)
THERMO_DATA(206)%A(1:7,2)  = &
   (/ 0.117003395E+07_EB,-0.378652101E+04_EB, 0.750314805E+01_EB,-0.128496400E-02_EB, 0.320626000E-06_EB,&
     -0.344493000E-10_EB, 0.112676000E-14_EB/)
THERMO_DATA(206)%B(1:2,2)  = (/ 0.185641335E+05_EB,-0.256271291E+02_EB/)
THERMO_DATA(206)%H_F       =    -36.290000_EB
THERMO_DATA(206)%SIGMA     =  3.353_EB ! R-132
THERMO_DATA(206)%EPSOK     =   449.00_EB
THERMO_DATA(206)%PR        =  0.69_EB ! airliquide.com
THERMO_DATA(206)%LIQUID    = .TRUE.
THERMO_DATA(206)%T_L(1:2)  = (/190._EB,205._EB/)
THERMO_DATA(206)%A_L(3:4,1)= (/635.3_EB,0.52_EB/)
THERMO_DATA(206)%H_V       = 278499.9834_EB !J/kg
THERMO_DATA(206)%T_REF     = 186.1_EB !K
THERMO_DATA(206)%T_MELT    = 186.1_EB !K
THERMO_DATA(206)%T_BOIL    = 206.35_EB !K
THERMO_DATA(206)%DENSITY   = 2140._EB !kg/m^3

THERMO_DATA(207)%FORMULA   = 'HCCO'
THERMO_DATA(207)%NAME      = 'ETHYNYLOXY RADICAL'
THERMO_DATA(207)%POLY      = 'NASA9'
THERMO_DATA(207)%BANDS     = 2
THERMO_DATA(207)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(207)%A(1:7,1)  = &
   (/ 0.695961270E+05_EB,-0.116459440E+04_EB, 0.945661626E+01_EB,-0.233124100E-02_EB, 0.516187000E-05_EB,&
     -0.352617000E-08_EB, 0.859914000E-12_EB/)
THERMO_DATA(207)%B(1:2,1)  = (/ 0.253500399E+05_EB,-0.272635535E+02_EB/)
THERMO_DATA(207)%A(1:7,2)  = &
   (/ 0.109392200E+07_EB,-0.449822821E+04_EB, 0.124644643E+02_EB,-0.634332000E-03_EB, 0.110855000E-06_EB,&
     -0.112549000E-10_EB, 0.568915000E-15_EB/)
THERMO_DATA(207)%B(1:2,2)  = (/ 0.465228030E+05_EB,-0.509907043E+02_EB/)
THERMO_DATA(207)%H_F       =    176.568100_EB
THERMO_DATA(207)%SIGMA     =  2.500_EB ! GRM3
THERMO_DATA(207)%EPSOK     =   150.00_EB
THERMO_DATA(207)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(208)%FORMULA   = 'HCHO'
THERMO_DATA(208)%NAME      = 'FORMALDEHYDE'
THERMO_DATA(208)%POLY      = 'NASA9'
THERMO_DATA(208)%BANDS     = 2
THERMO_DATA(208)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(208)%A(1:7,1)  = &
   (/-0.117391634E+06_EB, 0.187362885E+04_EB,-0.689028857E+01_EB, 0.264156170E-01_EB,-0.218639000E-04_EB,&
      0.100569000E-07_EB,-0.202348000E-11_EB/)
THERMO_DATA(208)%B(1:2,1)  = (/-0.230735177E+05_EB, 0.642042055E+02_EB/)
THERMO_DATA(208)%A(1:7,2)  = &
   (/ 0.170082541E+07_EB,-0.762085384E+04_EB, 0.147244755E+02_EB,-0.164911200E-02_EB, 0.329214000E-06_EB,&
     -0.349505000E-10_EB, 0.152614000E-14_EB/)
THERMO_DATA(208)%B(1:2,2)  = (/ 0.314681295E+05_EB,-0.738647850E+02_EB/)
THERMO_DATA(208)%H_F       =   -108.580000_EB
THERMO_DATA(208)%SIGMA     =  3.590_EB ! GRM3
THERMO_DATA(208)%EPSOK     =   498.00_EB
THERMO_DATA(208)%PR        =  0.71_EB ! Assume N2
THERMO_DATA(208)%RADCAL_ID = 'METHANOL'
THERMO_DATA(208)%LIQUID    = .TRUE.
THERMO_DATA(208)%T_L(1:2)  = (/300._EB,301._EB/)
THERMO_DATA(208)%A_L(3,1)  = 1180._EB !J/kg/K
THERMO_DATA(208)%H_V       = 809299.1469_EB !J/kg
THERMO_DATA(208)%T_REF     = 236._EB !K
THERMO_DATA(208)%T_MELT    = 181._EB !K
THERMO_DATA(208)%T_BOIL    = 254._EB !K
THERMO_DATA(208)%DENSITY   = 812._EB !kg/m^3

THERMO_DATA(209)%FORMULA   = 'HCl'
THERMO_DATA(209)%NAME      = 'HYDROGEN CHLORIDE'
THERMO_DATA(209)%POLY      = 'NASA9'
THERMO_DATA(209)%BANDS     = 2
THERMO_DATA(209)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(209)%A(1:7,1)  = &
   (/ 0.206258829E+05_EB,-0.309336885E+03_EB, 0.527541885E+01_EB,-0.482887400E-02_EB, 0.619579000E-05_EB,&
     -0.304002000E-08_EB, 0.491679000E-12_EB/)
THERMO_DATA(209)%B(1:2,1)  = (/-0.106778230E+05_EB,-0.730930541E+01_EB/)
THERMO_DATA(209)%A(1:7,2)  = &
   (/ 0.915774951E+06_EB,-0.277055021E+04_EB, 0.597353979E+01_EB,-0.362981000E-03_EB, 0.473553000E-07_EB,&
      0.281026000E-11_EB,-0.665610000E-15_EB/)
THERMO_DATA(209)%B(1:2,2)  = (/ 0.567495805E+04_EB,-0.164282582E+02_EB/)
THERMO_DATA(209)%H_F       =    -92.310000_EB
THERMO_DATA(209)%SIGMA     =  3.339_EB ! R-132
THERMO_DATA(209)%EPSOK     =   344.70_EB
THERMO_DATA(209)%PR        =  0.75_EB ! airliquide.com
THERMO_DATA(209)%LIQUID    = .TRUE.
THERMO_DATA(209)%T_L(1:2)  = (/160._EB,185._EB/)
THERMO_DATA(209)%A_L(3:4,1)= (/1442.65_EB,0.925714_EB/)
THERMO_DATA(209)%H_V       = 464812.7099_EB !J/kg
THERMO_DATA(209)%T_REF     = 161.15_EB !K
THERMO_DATA(209)%T_MELT    = 161.15_EB !K
THERMO_DATA(209)%T_BOIL    = 188.05_EB !K
THERMO_DATA(209)%DENSITY   = 1191._EB !kg/m^3
THERMO_DATA(209)%MU        = 0.000067_EB  !N.s/m^2
THERMO_DATA(209)%K         = 0.231_EB !W/m/K
THERMO_DATA(209)%BETA      = 0.00709_EB !1/K

THERMO_DATA(210)%FORMULA   = 'HCN'
THERMO_DATA(210)%NAME      = 'HYDROGEN CYANIDE'
THERMO_DATA(210)%POLY      = 'NASA9'
THERMO_DATA(210)%BANDS     = 2
THERMO_DATA(210)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(210)%A(1:7,1)  = &
   (/ 0.909828693E+05_EB,-0.123865751E+04_EB, 0.872130787E+01_EB,-0.652824300E-02_EB, 0.887270000E-05_EB,&
     -0.480889000E-08_EB, 0.931790000E-12_EB/)
THERMO_DATA(210)%B(1:2,1)  = (/ 0.209891545E+05_EB,-0.274667808E+02_EB/)
THERMO_DATA(210)%A(1:7,2)  = &
   (/ 0.123688928E+07_EB,-0.444673241E+04_EB, 0.973887485E+01_EB,-0.585518000E-03_EB, 0.107279000E-06_EB,&
     -0.101331000E-10_EB, 0.334825000E-15_EB/)
THERMO_DATA(210)%B(1:2,2)  = (/ 0.422151377E+05_EB,-0.400577407E+02_EB/)
THERMO_DATA(210)%H_F       =    133.082460_EB
THERMO_DATA(210)%SIGMA     =  3.638_EB ! R-132
THERMO_DATA(210)%EPSOK     =   569.40_EB
THERMO_DATA(210)%PR        =  0.70_EB ! R-132
THERMO_DATA(210)%LIQUID    = .TRUE.
THERMO_DATA(210)%T_L(1:2)  = (/70._EB,85._EB/)
THERMO_DATA(210)%A_L(3:4,1)= (/1931.9_EB,2.94_EB/)
THERMO_DATA(210)%H_V       = 967993.1926_EB !J/kg
THERMO_DATA(210)%T_REF     = 260._EB !K
THERMO_DATA(210)%T_MELT    = 260._EB !K
THERMO_DATA(210)%T_BOIL    = 298.85_EB !K
THERMO_DATA(210)%DENSITY   = 689._EB !kg/m^3
THERMO_DATA(210)%MU        = 0.000188_EB !N.s/m^2
THERMO_DATA(210)%K         = 0.243_EB !W/m/K
THERMO_DATA(210)%BETA      = 0.0222_EB !1/K

THERMO_DATA(211)%FORMULA   = 'HCNN'
THERMO_DATA(211)%NAME      = 'HCNN'
THERMO_DATA(211)%POLY      = 'NASA7'
THERMO_DATA(211)%BANDS     = 2
THERMO_DATA(211)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.500000000E+04_EB/)
THERMO_DATA(211)%A(1:5,1)  = &
   (/ 0.252431940E+01_EB, 0.159606190E-01_EB,-0.188163540E-04_EB, 0.121255400E-07_EB,-0.323573780E-11_EB/)
THERMO_DATA(211)%B(1:2,1)  = (/ 0.542619840E+05_EB, 0.116758700E+02_EB/)
THERMO_DATA(211)%A(1:5,2)  = &
   (/ 0.589463620E+01_EB, 0.398959590E-02_EB,-0.159823800E-05_EB, 0.292493950E-09_EB,-0.200946860E-13_EB/)
THERMO_DATA(211)%B(1:2,2)  = (/ 0.534529410E+05_EB,-0.510305020E+01_EB/)
THERMO_DATA(211)%H_F       =  462.1200396_EB
THERMO_DATA(211)%SIGMA     =  2.500_EB ! GRM3
THERMO_DATA(211)%EPSOK     =   150.00_EB
THERMO_DATA(211)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(212)%FORMULA   = 'HCNO'
THERMO_DATA(212)%NAME      = 'FULMINIC ACID'
THERMO_DATA(212)%POLY      = 'NASA7'
THERMO_DATA(212)%BANDS     = 2
THERMO_DATA(212)%T(1:3)    = (/ 0.298150000E+03_EB, 0.136800000E+04_EB, 0.500000000E+04_EB/)
THERMO_DATA(212)%A(1:5,1)  = &
   (/ 0.264727989E+01_EB, 0.127505342E-01_EB,-0.104794236E-04_EB, 0.441432836E-08_EB,-0.757521466E-12_EB/)
THERMO_DATA(212)%B(1:2,1)  = (/ 0.192990252E+05_EB, 0.107332972E+02_EB/)
THERMO_DATA(212)%A(1:5,2)  = &
   (/ 0.659860456E+01_EB, 0.302778626E-02_EB,-0.107704346E-05_EB, 0.171666528E-09_EB,-0.101439391E-13_EB/)
THERMO_DATA(212)%B(1:2,2)  = (/ 0.179661339E+05_EB,-0.103306599E+02_EB/)
THERMO_DATA(212)%H_F       =   171.0354561_EB
THERMO_DATA(212)%SIGMA     =  3.828_EB ! GRM3
THERMO_DATA(212)%EPSOK     =   232.40_EB
THERMO_DATA(212)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(213)%FORMULA   = 'HCO'
THERMO_DATA(213)%NAME      = 'FORMYL RADICAL'
THERMO_DATA(213)%POLY      = 'NASA9'
THERMO_DATA(213)%BANDS     = 2
THERMO_DATA(213)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(213)%A(1:7,1)  = &
   (/-0.118985189E+05_EB, 0.215153611E+03_EB, 0.273022403E+01_EB, 0.180651600E-02_EB, 0.498430000E-05_EB,&
     -0.581457000E-08_EB, 0.186969000E-11_EB/)
THERMO_DATA(213)%B(1:2,1)  = (/ 0.290575564E+04_EB, 0.113677254E+02_EB/)
THERMO_DATA(213)%A(1:7,2)  = &
   (/ 0.694960612E+06_EB,-0.365622338E+04_EB, 0.960473117E+01_EB,-0.111712900E-02_EB, 0.287533000E-06_EB,&
     -0.362625000E-10_EB, 0.180833000E-14_EB/)
THERMO_DATA(213)%B(1:2,2)  = (/ 0.254370444E+05_EB,-0.358247372E+02_EB/)
THERMO_DATA(213)%H_F       =     42.397850_EB
THERMO_DATA(213)%SIGMA     =  3.590_EB ! GRM3
THERMO_DATA(213)%EPSOK     =   498.00_EB
THERMO_DATA(213)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(214)%FORMULA   = 'HCO'
THERMO_DATA(214)%NAME      = 'FORMYL RADICALp'
THERMO_DATA(214)%POLY      = 'NASA9'
THERMO_DATA(214)%BANDS     = 3
THERMO_DATA(214)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(214)%A(1:7,1)  = &
   (/ 0.157344251E+06_EB,-0.186769216E+04_EB, 0.109923542E+02_EB,-0.121163790E-01_EB, 0.165909000E-04_EB,&
     -0.101659000E-07_EB, 0.239123000E-11_EB/)
THERMO_DATA(214)%B(1:2,1)  = (/ 0.108493028E+06_EB,-0.407826162E+02_EB/)
THERMO_DATA(214)%A(1:7,2)  = &
   (/ 0.121906065E+07_EB,-0.471429489E+04_EB, 0.102119249E+02_EB,-0.885452000E-03_EB, 0.166741000E-06_EB,&
     -0.168329000E-10_EB, 0.704005000E-15_EB/)
THERMO_DATA(214)%B(1:2,2)  = (/ 0.127798903E+06_EB,-0.435115846E+02_EB/)
THERMO_DATA(214)%A(1:7,3)  = &
   (/-0.459315193E+06_EB,-0.113256886E+04_EB, 0.773906520E+01_EB,-0.264846000E-04_EB, 0.161328000E-08_EB,&
     -0.511322000E-13_EB, 0.658803000E-18_EB/)
THERMO_DATA(214)%B(1:2,3)  = (/ 0.103281394E+06_EB,-0.245871682E+02_EB/)
THERMO_DATA(214)%H_F       =    833.034000_EB
THERMO_DATA(214)%SIGMA     =  3.590_EB ! GRM3
THERMO_DATA(214)%EPSOK     =   498.00_EB
THERMO_DATA(214)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(215)%FORMULA   = 'HCOOH'
THERMO_DATA(215)%NAME      = 'FORMIC ACID'
THERMO_DATA(215)%POLY      = 'NASA9'
THERMO_DATA(215)%BANDS     = 2
THERMO_DATA(215)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(215)%A(1:7,1)  = &
   (/-0.290627910E+05_EB, 0.765837888E+03_EB,-0.332841413E+01_EB, 0.281754300E-01_EB,-0.237005000E-04_EB,&
      0.116606000E-07_EB,-0.279137000E-11_EB/)
THERMO_DATA(215)%B(1:2,1)  = (/-0.500644347E+05_EB, 0.438709423E+02_EB/)
THERMO_DATA(215)%A(1:7,2)  = &
   (/ 0.487233645E+06_EB,-0.763223808E+04_EB, 0.213278815E+02_EB,-0.440254700E-02_EB, 0.110200000E-05_EB,&
     -0.136434000E-09_EB, 0.664843000E-14_EB/)
THERMO_DATA(215)%B(1:2,2)  = (/-0.578143191E+04_EB,-0.111179069E+03_EB/)
THERMO_DATA(215)%H_F       =   -378.570000_EB
THERMO_DATA(215)%SIGMA     =  3.970_EB ! GRM3
THERMO_DATA(215)%EPSOK     =   436.00_EB
THERMO_DATA(215)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(216)%FORMULA   = 'He'
THERMO_DATA(216)%NAME      = 'HELIUM'
THERMO_DATA(216)%POLY      = 'NASA9'
THERMO_DATA(216)%BANDS     = 3
THERMO_DATA(216)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(216)%A(1:7,1)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(216)%B(1:2,1)  = (/-0.745375000E+03_EB, 0.928723974E+00_EB/)
THERMO_DATA(216)%A(1:7,2)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(216)%B(1:2,2)  = (/-0.745375000E+03_EB, 0.928723974E+00_EB/)
THERMO_DATA(216)%A(1:7,3)  = &
   (/ 0.339684542E+07_EB,-0.219403765E+04_EB, 0.308023188E+01_EB,-0.806896000E-04_EB, 0.625278000E-08_EB,&
     -0.257499000E-12_EB, 0.442996000E-17_EB/)
THERMO_DATA(216)%B(1:2,3)  = (/ 0.165051896E+05_EB,-0.404881439E+01_EB/)
THERMO_DATA(216)%H_F       =      0.000000_EB
THERMO_DATA(216)%SIGMA     =  2.551_EB ! R-132
THERMO_DATA(216)%EPSOK     =    10.22_EB
THERMO_DATA(216)%PR        =  0.68_EB ! Bergman
THERMO_DATA(216)%LIQUID    = .TRUE.
THERMO_DATA(216)%T_L(1:2)  = (/1.4_EB,4.22_EB/)
THERMO_DATA(216)%A_L(3:6,1)= (/-8.45057E+00_EB,1.17485E+01_EB,-4.40229E+00_EB,5.62684E-01_EB/)
THERMO_DATA(216)%CP_UNIT   = 1000._EB !J/kg/K
THERMO_DATA(216)%H_V       = 20754._EB !J/kg
THERMO_DATA(216)%T_REF     = 0._EB !K
THERMO_DATA(216)%T_MELT    = 0._EB !K
THERMO_DATA(216)%T_BOIL    = 4.22_EB !K
THERMO_DATA(216)%DENSITY   = 125._EB !kg/m^3
THERMO_DATA(216)%K         = 0.0272 !W/m/K
THERMO_DATA(216)%MU        = 0.00000357_EB !N.s/m^2
THERMO_DATA(216)%BETA      = 0.0818_EB !1/K

THERMO_DATA(217)%FORMULA   = 'He'
THERMO_DATA(217)%NAME      = 'HELIUMp'
THERMO_DATA(217)%POLY      = 'NASA9'
THERMO_DATA(217)%BANDS     = 3
THERMO_DATA(217)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(217)%A(1:7,1)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(217)%B(1:2,1)  = (/ 0.285323374E+06_EB, 0.162166556E+01_EB/)
THERMO_DATA(217)%A(1:7,2)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(217)%B(1:2,2)  = (/ 0.285323374E+06_EB, 0.162166556E+01_EB/)
THERMO_DATA(217)%A(1:7,3)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(217)%B(1:2,3)  = (/ 0.285323374E+06_EB, 0.162166556E+01_EB/)
THERMO_DATA(217)%H_F       =   2378.521470_EB
THERMO_DATA(217)%SIGMA     =  2.551_EB ! R-132
THERMO_DATA(217)%EPSOK     =    10.22_EB
THERMO_DATA(217)%PR        =  0.68_EB ! Bergman
 
THERMO_DATA(218)%FORMULA   = 'HF'
THERMO_DATA(218)%NAME      = 'HYDROGEN FLUORIDE'
THERMO_DATA(218)%POLY      = 'NASA9'
THERMO_DATA(218)%BANDS     = 3
THERMO_DATA(218)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(218)%A(1:7,1)  = &
   (/-0.319209897E+04_EB, 0.598680772E+02_EB, 0.305511390E+01_EB, 0.168467400E-02_EB,-0.328739000E-05_EB,&
      0.309592000E-08_EB,-0.976469000E-12_EB/)
THERMO_DATA(218)%B(1:2,1)  = (/-0.341844316E+05_EB, 0.329490412E+01_EB/)
THERMO_DATA(218)%A(1:7,2)  = &
   (/ 0.725708904E+06_EB,-0.148479774E+04_EB, 0.385552747E+01_EB, 0.713899000E-03_EB,-0.210676000E-06_EB,&
      0.305009000E-10_EB,-0.163950000E-14_EB/)
THERMO_DATA(218)%B(1:2,2)  = (/-0.235545666E+05_EB,-0.320385683E+01_EB/)
THERMO_DATA(218)%A(1:7,3)  = &
   (/ 0.176458842E+09_EB,-0.878999806E+05_EB, 0.188652486E+02_EB,-0.685087000E-03_EB,-0.140347000E-07_EB,&
      0.150371000E-11_EB,-0.271752000E-16_EB/)
THERMO_DATA(218)%B(1:2,3)  = (/ 0.685357322E+06_EB,-0.139323157E+03_EB/)
THERMO_DATA(218)%H_F       =   -273.300000_EB
THERMO_DATA(218)%SIGMA     =  3.148_EB ! R-132
THERMO_DATA(218)%EPSOK     =   330.00_EB
THERMO_DATA(218)%PR        =  0.71_EB ! airliquide.com
THERMO_DATA(218)%LIQUID    = .TRUE.
THERMO_DATA(218)%T_L(1:2)  = (/200._EB,290._EB/)
THERMO_DATA(218)%A_L(3:6,1)= (/3.22662E+03_EB,-1.23566E+01_EB,3.62354E-02_EB,-6.21601E-06_EB/)
THERMO_DATA(218)%H_V = 460008.5869_EB !J/kg
THERMO_DATA(218)%T_REF = 190._EB !K
THERMO_DATA(218)%T_MELT = 190._EB !K
THERMO_DATA(218)%T_BOIL = 292.5_EB !K
THERMO_DATA(218)%DENSITY = 991._EB !kg/m^3

 
THERMO_DATA(219)%FORMULA   = 'Hg'
THERMO_DATA(219)%NAME      = 'MERCURY'
THERMO_DATA(219)%POLY      = 'NASA9'
THERMO_DATA(219)%BANDS     = 3
THERMO_DATA(219)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(219)%A(1:7,1)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(219)%B(1:2,1)  = (/ 0.663690008E+04_EB, 0.680020154E+01_EB/)
THERMO_DATA(219)%A(1:7,2)  = &
   (/ 0.514657351E+05_EB,-0.168126985E+03_EB, 0.271834310E+01_EB,-0.144503000E-03_EB, 0.515898000E-07_EB,&
     -0.947249000E-11_EB, 0.703480000E-15_EB/)
THERMO_DATA(219)%B(1:2,2)  = (/ 0.768868493E+04_EB, 0.527123609E+01_EB/)
THERMO_DATA(219)%A(1:7,3)  = &
   (/ 0.535844393E+09_EB,-0.443385381E+06_EB, 0.146322399E+03_EB,-0.231844170E-01_EB, 0.191634000E-05_EB,&
     -0.741966000E-10_EB, 0.106722000E-14_EB/)
THERMO_DATA(219)%B(1:2,3)  = (/ 0.339199992E+07_EB,-0.120122599E+04_EB/)
THERMO_DATA(219)%H_F       =     61.380000_EB
THERMO_DATA(219)%SIGMA     =  2.969_EB ! R-132
THERMO_DATA(219)%EPSOK     =   750.00_EB
THERMO_DATA(219)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(220)%FORMULA   = 'Hg'
THERMO_DATA(220)%NAME      = 'MERCURYp'
THERMO_DATA(220)%POLY      = 'NASA9'
THERMO_DATA(220)%BANDS     = 3
THERMO_DATA(220)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(220)%A(1:7,1)  = &
   (/ 0.409834000E-03_EB,-0.434358000E-05_EB, 0.250000002E+01_EB,-0.438904000E-10_EB, 0.556397000E-13_EB,&
     -0.363823000E-16_EB, 0.960788000E-20_EB/)
THERMO_DATA(220)%B(1:2,1)  = (/ 0.128503748E+06_EB, 0.749334450E+01_EB/)
THERMO_DATA(220)%A(1:7,2)  = &
   (/-0.122998473E+05_EB, 0.273226991E+02_EB, 0.248418216E+01_EB,-0.442680000E-05_EB, 0.748969000E-08_EB,&
     -0.254989000E-11_EB, 0.281987000E-15_EB/)
THERMO_DATA(220)%B(1:2,2)  = (/ 0.128318826E+06_EB, 0.762524457E+01_EB/)
THERMO_DATA(220)%A(1:7,3)  = &
   (/-0.549861771E+08_EB, 0.377554350E+05_EB,-0.715554555E+01_EB, 0.117031000E-02_EB,-0.793147000E-07_EB,&
      0.402917000E-11_EB,-0.774107000E-16_EB/)
THERMO_DATA(220)%B(1:2,3)  = (/-0.167689420E+06_EB, 0.911675002E+02_EB/)
THERMO_DATA(220)%H_F       =   1074.643130_EB
THERMO_DATA(220)%SIGMA     =  2.969_EB ! R-132
THERMO_DATA(220)%EPSOK     =   750.00_EB
THERMO_DATA(220)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(221)%FORMULA   = 'HgBr2'
THERMO_DATA(221)%NAME      = 'MERCURIC BROMIDE'
THERMO_DATA(221)%POLY      = 'NASA9'
THERMO_DATA(221)%BANDS     = 2
THERMO_DATA(221)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(221)%A(1:7,1)  = &
   (/-0.199182654E+04_EB,-0.190218608E+03_EB, 0.824640126E+01_EB,-0.160708900E-02_EB, 0.194765000E-05_EB,&
     -0.124287000E-08_EB, 0.324182000E-12_EB/)
THERMO_DATA(221)%B(1:2,1)  = (/-0.123072310E+05_EB,-0.871665930E+01_EB/)
THERMO_DATA(221)%A(1:7,2)  = &
   (/-0.224364929E+05_EB,-0.331265227E+01_EB, 0.750276517E+01_EB,-0.120236000E-05_EB, 0.283053000E-09_EB,&
     -0.340769000E-13_EB, 0.164050000E-17_EB/)
THERMO_DATA(221)%B(1:2,2)  = (/-0.132748337E+05_EB,-0.436855560E+01_EB/)
THERMO_DATA(221)%H_F       =    -91.311616_EB
THERMO_DATA(221)%SIGMA     =  5.088_EB ! R-132
THERMO_DATA(221)%EPSOK     =   686.20_EB
THERMO_DATA(221)%PR        =  0.73_EB ! R-132
 
THERMO_DATA(222)%FORMULA   = 'HI'
THERMO_DATA(222)%NAME      = 'HYDROGEN IODIDE'
THERMO_DATA(222)%POLY      = 'NASA9'
THERMO_DATA(222)%BANDS     = 2
THERMO_DATA(222)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(222)%A(1:7,1)  = &
   (/ 0.187288173E+05_EB,-0.343178884E+03_EB, 0.595671243E+01_EB,-0.854344000E-02_EB, 0.145478000E-04_EB,&
     -0.104910000E-07_EB, 0.283973000E-11_EB/)
THERMO_DATA(222)%B(1:2,1)  = (/ 0.368295072E+04_EB,-0.814975609E+01_EB/)
THERMO_DATA(222)%A(1:7,2)  = &
   (/ 0.472492145E+06_EB,-0.192346574E+04_EB, 0.575804897E+01_EB,-0.406627000E-03_EB, 0.947433000E-07_EB,&
     -0.103353000E-10_EB, 0.461161000E-15_EB/)
THERMO_DATA(222)%B(1:2,2)  = (/ 0.139485704E+05_EB,-0.118248765E+02_EB/)
THERMO_DATA(222)%H_F       =     26.359000_EB
THERMO_DATA(222)%SIGMA     =  4.211_EB ! R-132
THERMO_DATA(222)%EPSOK     =   288.70_EB
THERMO_DATA(222)%PR        =  0.69_EB ! R-132
 
THERMO_DATA(223)%FORMULA   = 'HNCO'
THERMO_DATA(223)%NAME      = 'ISOCYANIC ACID'
THERMO_DATA(223)%POLY      = 'NASA9'
THERMO_DATA(223)%BANDS     = 2
THERMO_DATA(223)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(223)%A(1:7,1)  = &
   (/ 0.754246008E+05_EB,-0.955093777E+03_EB, 0.672570587E+01_EB, 0.470568800E-02_EB,-0.495948000E-05_EB,&
      0.369426000E-08_EB,-0.116486000E-11_EB/)
THERMO_DATA(223)%B(1:2,1)  = (/-0.106814974E+05_EB,-0.136558476E+02_EB/)
THERMO_DATA(223)%A(1:7,2)  = &
   (/ 0.125321693E+07_EB,-0.502109154E+04_EB, 0.124778931E+02_EB,-0.689166000E-03_EB, 0.109774000E-06_EB,&
     -0.930640000E-11_EB, 0.324261000E-15_EB/)
THERMO_DATA(223)%B(1:2,2)  = (/ 0.145315556E+05_EB,-0.530641982E+02_EB/)
THERMO_DATA(223)%H_F       =   -118.056529_EB
THERMO_DATA(223)%SIGMA     =  3.828_EB ! GRM3
THERMO_DATA(223)%EPSOK     =   232.40_EB
THERMO_DATA(223)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(224)%FORMULA   = 'HNO'
THERMO_DATA(224)%NAME      = 'NITROSYL HYDRIDE'
THERMO_DATA(224)%POLY      = 'NASA9'
THERMO_DATA(224)%BANDS     = 2
THERMO_DATA(224)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(224)%A(1:7,1)  = &
   (/-0.685476486E+05_EB, 0.955162720E+03_EB,-0.600072021E+00_EB, 0.799517700E-02_EB,-0.654708000E-06_EB,&
     -0.367051000E-08_EB, 0.178339000E-11_EB/)
THERMO_DATA(224)%B(1:2,1)  = (/ 0.643535126E+04_EB, 0.304816618E+02_EB/)
THERMO_DATA(224)%A(1:7,2)  = &
   (/-0.579561498E+07_EB, 0.194545743E+05_EB,-0.215256837E+02_EB, 0.179742900E-01_EB,-0.497604000E-05_EB,&
      0.639792000E-09_EB,-0.314262000E-13_EB/)
THERMO_DATA(224)%B(1:2,2)  = (/-0.110419237E+06_EB, 0.181865034E+03_EB/)
THERMO_DATA(224)%H_F       =    102.032725_EB
THERMO_DATA(224)%SIGMA     =  3.495_EB ! GRM3
THERMO_DATA(224)%EPSOK     =   116.70_EB
THERMO_DATA(224)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(225)%FORMULA   = 'HNO3'
THERMO_DATA(225)%NAME      = 'NITRIC ACID'
THERMO_DATA(225)%POLY      = 'NASA9'
THERMO_DATA(225)%BANDS     = 2
THERMO_DATA(225)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(225)%A(1:7,1)  = &
   (/ 0.920286901E+04_EB, 0.109377450E+03_EB,-0.452104245E+00_EB, 0.298491450E-01_EB,-0.319064000E-04_EB,&
      0.172093000E-07_EB,-0.378265000E-11_EB/)
THERMO_DATA(225)%B(1:2,1)  = (/-0.176404851E+05_EB, 0.274664488E+02_EB/)
THERMO_DATA(225)%A(1:7,2)  = &
   (/-0.949780964E+05_EB,-0.273302447E+04_EB, 0.144942699E+02_EB,-0.782187000E-03_EB, 0.170269000E-06_EB,&
     -0.193054000E-10_EB, 0.887046000E-15_EB/)
THERMO_DATA(225)%B(1:2,2)  = (/-0.488251778E+04_EB,-0.592839298E+02_EB/)
THERMO_DATA(225)%H_F       =   -133.912869_EB
THERMO_DATA(225)%SIGMA     =  4.175_EB ! GRM3
THERMO_DATA(225)%EPSOK     =   378.40_EB
THERMO_DATA(225)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(226)%FORMULA   = 'HO2'
THERMO_DATA(226)%NAME      = 'HYDROPEROXY RADICAL'
THERMO_DATA(226)%POLY      = 'NASA9'
THERMO_DATA(226)%BANDS     = 2
THERMO_DATA(226)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(226)%A(1:7,1)  = &
   (/-0.759888254E+05_EB, 0.132938392E+04_EB,-0.467738824E+01_EB, 0.250830820E-01_EB,-0.300655000E-04_EB,&
      0.189560000E-07_EB,-0.482857000E-11_EB/)
THERMO_DATA(226)%B(1:2,1)  = (/-0.587335096E+04_EB, 0.519360214E+02_EB/)
THERMO_DATA(226)%A(1:7,2)  = &
   (/-0.181066972E+07_EB, 0.496319203E+04_EB,-0.103949899E+01_EB, 0.456014900E-02_EB,-0.106186000E-05_EB,&
      0.114457000E-09_EB,-0.476306000E-14_EB/)
THERMO_DATA(226)%B(1:2,2)  = (/-0.320081719E+05_EB, 0.406685092E+02_EB/)
THERMO_DATA(226)%H_F       =     12.020000_EB
THERMO_DATA(226)%SIGMA     =  3.020_EB ! GRM3
THERMO_DATA(226)%EPSOK     =   106.50_EB
THERMO_DATA(226)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(227)%FORMULA   = 'HO2'
THERMO_DATA(227)%NAME      = 'HYDROPEROXY RADICALm'
THERMO_DATA(227)%POLY      = 'NASA9'
THERMO_DATA(227)%BANDS     = 2
THERMO_DATA(227)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(227)%A(1:7,1)  = &
   (/ 0.110383984E+06_EB,-0.104796365E+04_EB, 0.636001399E+01_EB, 0.294252000E-02_EB,-0.628414000E-05_EB,&
      0.543825000E-08_EB,-0.164731000E-11_EB/)
THERMO_DATA(227)%B(1:2,1)  = (/-0.741774159E+04_EB,-0.125187800E+02_EB/)
THERMO_DATA(227)%A(1:7,2)  = &
   (/ 0.793330600E+06_EB,-0.250331242E+04_EB, 0.754896233E+01_EB, 0.830839000E-04_EB,-0.596973000E-07_EB,&
      0.995538000E-11_EB,-0.560648000E-15_EB/)
THERMO_DATA(227)%B(1:2,2)  = (/ 0.251207908E+04_EB,-0.207006585E+02_EB/)
THERMO_DATA(227)%H_F       =    -97.923080_EB
THERMO_DATA(227)%SIGMA     =  3.020_EB ! GRM3
THERMO_DATA(227)%EPSOK     =   106.50_EB
THERMO_DATA(227)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(228)%FORMULA   = 'HOCN'
THERMO_DATA(228)%NAME      = 'CYANIC ACID'
THERMO_DATA(228)%POLY      = 'NASA7'
THERMO_DATA(228)%BANDS     = 2
THERMO_DATA(228)%T(1:3)    = (/ 0.298150000E+03_EB, 0.136800000E+04_EB, 0.500000000E+04_EB/)
THERMO_DATA(228)%A(1:5,1)  = &
   (/ 0.378604952E+01_EB, 0.688667922E-02_EB,-0.321487864E-05_EB, 0.517195767E-09_EB, 0.119360788E-13_EB/)
THERMO_DATA(228)%B(1:2,1)  = (/-0.282698400E+04_EB, 0.563292162E+01_EB/)
THERMO_DATA(228)%A(1:5,2)  = &
   (/ 0.589784885E+01_EB, 0.316789393E-02_EB,-0.111801064E-05_EB, 0.177243144E-09_EB,-0.104339177E-13_EB/)
THERMO_DATA(228)%B(1:2,2)  = (/-0.370653331E+04_EB,-0.618167825E+01_EB/)
THERMO_DATA(228)%H_F       =   -11.80204103_EB
THERMO_DATA(228)%SIGMA     =  3.828_EB ! GRM3
THERMO_DATA(228)%EPSOK     =   232.40_EB
THERMO_DATA(228)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(229)%FORMULA   = 'I'
THERMO_DATA(229)%NAME      = 'IODINE'
THERMO_DATA(229)%POLY      = 'NASA9'
THERMO_DATA(229)%BANDS     = 3
THERMO_DATA(229)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(229)%A(1:7,1)  = &
   (/ 0.169819967E+03_EB,-0.271643723E+01_EB, 0.251738556E+01_EB,-0.573069000E-04_EB, 0.103172000E-06_EB,&
     -0.967064000E-10_EB, 0.370647000E-13_EB/)
THERMO_DATA(229)%B(1:2,1)  = (/ 0.121075009E+05_EB, 0.740582313E+01_EB/)
THERMO_DATA(229)%A(1:7,2)  = &
   (/-0.778586057E+06_EB, 0.230327957E+04_EB, 0.288668600E-02_EB, 0.118087800E-02_EB,-0.226407000E-06_EB,&
      0.196351000E-10_EB,-0.624353000E-15_EB/)
THERMO_DATA(229)%B(1:2,2)  = (/-0.261679274E+04_EB, 0.255892300E+02_EB/)
THERMO_DATA(229)%A(1:7,3)  = &
   (/ 0.474763078E+08_EB,-0.868111119E+05_EB, 0.395061702E+02_EB,-0.651406300E-02_EB, 0.538070000E-06_EB,&
     -0.196915000E-10_EB, 0.264318000E-15_EB/)
THERMO_DATA(229)%B(1:2,3)  = (/ 0.638484303E+06_EB,-0.297299712E+03_EB/)
THERMO_DATA(229)%H_F       =    106.760000_EB
THERMO_DATA(229)%SIGMA     =  4.320_EB ! R-132
THERMO_DATA(229)%EPSOK     =   210.70_EB
THERMO_DATA(229)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(230)%FORMULA   = 'I'
THERMO_DATA(230)%NAME      = 'IODINEm'
THERMO_DATA(230)%POLY      = 'NASA9'
THERMO_DATA(230)%BANDS     = 3
THERMO_DATA(230)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(230)%A(1:7,1)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(230)%B(1:2,1)  = (/-0.241497094E+05_EB, 0.611346538E+01_EB/)
THERMO_DATA(230)%A(1:7,2)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(230)%B(1:2,2)  = (/-0.241497094E+05_EB, 0.611346538E+01_EB/)
THERMO_DATA(230)%A(1:7,3)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(230)%B(1:2,3)  = (/-0.241497094E+05_EB, 0.611346538E+01_EB/)
THERMO_DATA(230)%H_F       =   -194.595572_EB
THERMO_DATA(230)%SIGMA     =  4.320_EB ! R-132
THERMO_DATA(230)%EPSOK     =   210.70_EB
THERMO_DATA(230)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(231)%FORMULA   = 'I'
THERMO_DATA(231)%NAME      = 'IODINEp'
THERMO_DATA(231)%POLY      = 'NASA9'
THERMO_DATA(231)%BANDS     = 3
THERMO_DATA(231)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(231)%A(1:7,1)  = &
   (/-0.801496901E+03_EB, 0.813905261E+01_EB, 0.247017476E+01_EB, 0.416139000E-04_EB, 0.713340000E-08_EB,&
     -0.710595000E-10_EB, 0.487377000E-13_EB/)
THERMO_DATA(231)%B(1:2,1)  = (/ 0.134079421E+06_EB, 0.790342009E+01_EB/)
THERMO_DATA(231)%A(1:7,2)  = &
   (/-0.778838533E+06_EB, 0.240496265E+04_EB,-0.179175114E+00_EB, 0.122731200E-02_EB,-0.180149000E-06_EB,&
      0.992398000E-11_EB,-0.977529000E-16_EB/)
THERMO_DATA(231)%B(1:2,2)  = (/ 0.118853163E+06_EB, 0.271054435E+02_EB/)
THERMO_DATA(231)%A(1:7,3)  = &
   (/-0.631442001E+09_EB, 0.397113191E+06_EB,-0.986019199E+02_EB, 0.135823660E-01_EB,-0.992075000E-06_EB,&
      0.368493000E-10_EB,-0.530169000E-15_EB/)
THERMO_DATA(231)%B(1:2,3)  = (/-0.300147459E+07_EB, 0.879046874E+03_EB/)
THERMO_DATA(231)%H_F       =   1121.351030_EB
THERMO_DATA(231)%SIGMA     =  4.320_EB ! R-132
THERMO_DATA(231)%EPSOK     =   210.70_EB
THERMO_DATA(231)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(232)%FORMULA   = 'I2'
THERMO_DATA(232)%NAME      = 'IODINE2'
THERMO_DATA(232)%POLY      = 'NASA9'
THERMO_DATA(232)%BANDS     = 2
THERMO_DATA(232)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(232)%A(1:7,1)  = &
   (/-0.508796877E+04_EB,-0.124958521E+02_EB, 0.450421909E+01_EB, 0.137096000E-03_EB,-0.139052000E-06_EB,&
      0.117481000E-09_EB,-0.233754000E-13_EB/)
THERMO_DATA(232)%B(1:2,1)  = (/ 0.621346981E+04_EB, 0.558383694E+01_EB/)
THERMO_DATA(232)%A(1:7,2)  = &
   (/-0.563259416E+07_EB, 0.179396156E+05_EB,-0.172305517E+02_EB, 0.124421410E-01_EB,-0.333277000E-05_EB,&
      0.412548000E-09_EB,-0.196046000E-13_EB/)
THERMO_DATA(232)%B(1:2,2)  = (/-0.106850529E+06_EB, 0.160053188E+03_EB/)
THERMO_DATA(232)%H_F       =     62.420000_EB
THERMO_DATA(232)%SIGMA     =  5.160_EB ! R-132
THERMO_DATA(232)%EPSOK     =   474.20_EB
THERMO_DATA(232)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(233)%FORMULA   = 'K'
THERMO_DATA(233)%NAME      = 'KRYPTONm'
THERMO_DATA(233)%POLY      = 'NASA9'
THERMO_DATA(233)%BANDS     = 3
THERMO_DATA(233)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(233)%A(1:7,1)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(233)%B(1:2,1)  = (/ 0.339415071E+04_EB, 0.434744653E+01_EB/)
THERMO_DATA(233)%A(1:7,2)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(233)%B(1:2,2)  = (/ 0.339415071E+04_EB, 0.434744653E+01_EB/)
THERMO_DATA(233)%A(1:7,3)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(233)%B(1:2,3)  = (/ 0.339415071E+04_EB, 0.434744653E+01_EB/)
THERMO_DATA(233)%H_F       =     34.418128_EB
THERMO_DATA(233)%SIGMA     =  3.655_EB ! R-132
THERMO_DATA(233)%EPSOK     =   178.90_EB
THERMO_DATA(233)%PR        =  1.43_EB ! R-132
 
THERMO_DATA(234)%FORMULA   = 'K'
THERMO_DATA(234)%NAME      = 'KRYPTONp'
THERMO_DATA(234)%POLY      = 'NASA9'
THERMO_DATA(234)%BANDS     = 3
THERMO_DATA(234)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(234)%A(1:7,1)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(234)%B(1:2,1)  = (/ 0.610751686E+05_EB, 0.434740444E+01_EB/)
THERMO_DATA(234)%A(1:7,2)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(234)%B(1:2,2)  = (/ 0.610751686E+05_EB, 0.434740444E+01_EB/)
THERMO_DATA(234)%A(1:7,3)  = &
   (/ 0.217790124E+08_EB,-0.141507663E+05_EB, 0.624895427E+01_EB,-0.518744000E-03_EB, 0.395964000E-07_EB,&
     -0.158434000E-11_EB, 0.260356000E-16_EB/)
THERMO_DATA(234)%B(1:2,3)  = (/ 0.172275358E+06_EB,-0.278172899E+02_EB/)
THERMO_DATA(234)%H_F       =    514.007528_EB
THERMO_DATA(234)%SIGMA     =  3.655_EB ! R-132
THERMO_DATA(234)%EPSOK     =   178.90_EB
THERMO_DATA(234)%PR        =  1.43_EB ! R-132
 
THERMO_DATA(235)%FORMULA   = 'Kr'
THERMO_DATA(235)%NAME      = 'KRYPTON'
THERMO_DATA(235)%POLY      = 'NASA9'
THERMO_DATA(235)%BANDS     = 3
THERMO_DATA(235)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(235)%A(1:7,1)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(235)%B(1:2,1)  = (/-0.745375000E+03_EB, 0.549095651E+01_EB/)
THERMO_DATA(235)%A(1:7,2)  = &
   (/ 0.264363906E+03_EB,-0.791005082E+00_EB, 0.250092058E+01_EB,-0.532816000E-06_EB, 0.162073000E-09_EB,&
     -0.246790000E-13_EB, 0.147859000E-17_EB/)
THERMO_DATA(235)%B(1:2,2)  = (/-0.740348894E+03_EB, 0.548439815E+01_EB/)
THERMO_DATA(235)%A(1:7,3)  = &
   (/-0.137553109E+10_EB, 0.906403053E+06_EB,-0.240348143E+03_EB, 0.337831200E-01_EB,-0.256310000E-05_EB,&
      0.996979000E-10_EB,-0.152125000E-14_EB/)
THERMO_DATA(235)%B(1:2,3)  = (/-0.711166737E+07_EB, 0.208686633E+04_EB/)
THERMO_DATA(235)%H_F       =      0.000000_EB
THERMO_DATA(235)%SIGMA     =  3.655_EB ! R-132
THERMO_DATA(235)%EPSOK     =   178.90_EB
THERMO_DATA(235)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(236)%FORMULA   = 'Li'
THERMO_DATA(236)%NAME      = 'LITHIUM'
THERMO_DATA(236)%POLY      = 'NASA9'
THERMO_DATA(236)%BANDS     = 3
THERMO_DATA(236)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(236)%A(1:7,1)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(236)%B(1:2,1)  = (/ 0.184139020E+05_EB, 0.244762296E+01_EB/)
THERMO_DATA(236)%A(1:7,2)  = &
   (/ 0.112561065E+07_EB,-0.346353673E+04_EB, 0.656661192E+01_EB,-0.226098300E-02_EB, 0.592229000E-06_EB,&
     -0.628164000E-10_EB, 0.288495000E-14_EB/)
THERMO_DATA(236)%B(1:2,2)  = (/ 0.403463740E+05_EB,-0.265591819E+02_EB/)
THERMO_DATA(236)%A(1:7,3)  = &
   (/ 0.260435262E+10_EB,-0.152195220E+07_EB, 0.345440050E+03_EB,-0.377967490E-01_EB, 0.222242000E-05_EB,&
     -0.669157000E-10_EB, 0.808802000E-15_EB/)
THERMO_DATA(236)%B(1:2,3)  = (/ 0.121779185E+08_EB,-0.300668019E+04_EB/)
THERMO_DATA(236)%H_F       =    159.300000_EB
THERMO_DATA(236)%SIGMA     =  2.850_EB ! R-132
THERMO_DATA(236)%EPSOK     =  1899.00_EB
THERMO_DATA(236)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(237)%FORMULA   = 'Li'
THERMO_DATA(237)%NAME      = 'LITHIUMm'
THERMO_DATA(237)%POLY      = 'NASA9'
THERMO_DATA(237)%BANDS     = 3
THERMO_DATA(237)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(237)%A(1:7,1)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(237)%B(1:2,1)  = (/ 0.104969866E+05_EB, 0.175459433E+01_EB/)
THERMO_DATA(237)%A(1:7,2)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(237)%B(1:2,2)  = (/ 0.104969866E+05_EB, 0.175459433E+01_EB/)
THERMO_DATA(237)%A(1:7,3)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(237)%B(1:2,3)  = (/ 0.104969866E+05_EB, 0.175459433E+01_EB/)
THERMO_DATA(237)%H_F       =     93.474728_EB
THERMO_DATA(237)%SIGMA     =  2.850_EB ! R-132
THERMO_DATA(237)%EPSOK     =  1899.00_EB
THERMO_DATA(237)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(238)%FORMULA   = 'Li'
THERMO_DATA(238)%NAME      = 'LITHIUMp'
THERMO_DATA(238)%POLY      = 'NASA9'
THERMO_DATA(238)%BANDS     = 3
THERMO_DATA(238)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(238)%A(1:7,1)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(238)%B(1:2,1)  = (/ 0.817272455E+05_EB, 0.175435723E+01_EB/)
THERMO_DATA(238)%A(1:7,2)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(238)%B(1:2,2)  = (/ 0.817272455E+05_EB, 0.175435723E+01_EB/)
THERMO_DATA(238)%A(1:7,3)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(238)%B(1:2,3)  = (/ 0.817272455E+05_EB, 0.175435723E+01_EB/)
THERMO_DATA(238)%H_F       =    685.719428_EB
THERMO_DATA(238)%SIGMA     =  2.850_EB ! R-132
THERMO_DATA(238)%EPSOK     =  1899.00_EB
THERMO_DATA(238)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(239)%FORMULA   = 'Li2'
THERMO_DATA(239)%NAME      = 'LITHIUM DIMER'
THERMO_DATA(239)%POLY      = 'NASA9'
THERMO_DATA(239)%BANDS     = 2
THERMO_DATA(239)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(239)%A(1:7,1)  = &
   (/ 0.677848158E+04_EB,-0.224620583E+03_EB, 0.529603744E+01_EB,-0.127241200E-02_EB, 0.120584000E-05_EB,&
     -0.981854000E-10_EB,-0.241670000E-12_EB/)
THERMO_DATA(239)%B(1:2,1)  = (/ 0.257363819E+05_EB,-0.686925758E+01_EB/)
THERMO_DATA(239)%A(1:7,2)  = &
   (/ 0.376764540E+08_EB,-0.118574719E+06_EB, 0.148216779E+03_EB,-0.837853210E-01_EB, 0.242492000E-04_EB,&
     -0.327582000E-08_EB, 0.165200000E-12_EB/)
THERMO_DATA(239)%B(1:2,2)  = (/ 0.772307201E+06_EB,-0.102169730E+04_EB/)
THERMO_DATA(239)%H_F       =    215.900000_EB
THERMO_DATA(239)%SIGMA     =  3.200_EB ! R-132
THERMO_DATA(239)%EPSOK     =  1899.00_EB
THERMO_DATA(239)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(240)%FORMULA   = 'Li2'
THERMO_DATA(240)%NAME      = 'LITHIUM DIMERp'
THERMO_DATA(240)%POLY      = 'NASA9'
THERMO_DATA(240)%BANDS     = 2
THERMO_DATA(240)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(240)%A(1:7,1)  = &
   (/-0.104005645E+05_EB, 0.267540564E+02_EB, 0.424727175E+01_EB, 0.105745100E-02_EB,-0.128172000E-05_EB,&
      0.106748000E-08_EB,-0.275941000E-12_EB/)
THERMO_DATA(240)%B(1:2,1)  = (/ 0.852981131E+05_EB, 0.529818996E+00_EB/)
THERMO_DATA(240)%A(1:7,2)  = &
   (/ 0.127993107E+08_EB,-0.349286139E+05_EB, 0.384478536E+02_EB,-0.138063540E-01_EB, 0.253139000E-05_EB,&
     -0.219782000E-09_EB, 0.708767000E-14_EB/)
THERMO_DATA(240)%B(1:2,2)  = (/ 0.311796445E+06_EB,-0.250954364E+03_EB/)
THERMO_DATA(240)%H_F       =    721.611420_EB
THERMO_DATA(240)%SIGMA     =  3.200_EB ! R-132
THERMO_DATA(240)%EPSOK     =  1899.00_EB
THERMO_DATA(240)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(241)%FORMULA   = 'Li2O'
THERMO_DATA(241)%NAME      = 'LITHIUM OXIDE'
THERMO_DATA(241)%POLY      = 'NASA9'
THERMO_DATA(241)%BANDS     = 2
THERMO_DATA(241)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(241)%A(1:7,1)  = &
   (/ 0.263660160E+05_EB,-0.179862928E+03_EB, 0.405111522E+01_EB, 0.118998140E-01_EB,-0.173010000E-04_EB,&
      0.120558000E-07_EB,-0.329273000E-11_EB/)
THERMO_DATA(241)%B(1:2,1)  = (/-0.206190796E+05_EB, 0.160599561E+01_EB/)
THERMO_DATA(241)%A(1:7,2)  = &
   (/ 0.726148704E+06_EB,-0.954378372E+04_EB, 0.288749164E+02_EB,-0.195949410E-01_EB, 0.808634000E-05_EB,&
     -0.137021000E-08_EB, 0.811173000E-13_EB/)
THERMO_DATA(241)%B(1:2,2)  = (/ 0.299072640E+05_EB,-0.156451782E+03_EB/)
THERMO_DATA(241)%H_F       =   -167.338920_EB
THERMO_DATA(241)%SIGMA     =  3.561_EB ! R-132
THERMO_DATA(241)%EPSOK     =  1827.00_EB
THERMO_DATA(241)%PR        =  0.71_EB ! R-132
 
THERMO_DATA(242)%FORMULA   = 'Li2O'
THERMO_DATA(242)%NAME      = 'LITHIUM OXIDEp'
THERMO_DATA(242)%POLY      = 'NASA9'
THERMO_DATA(242)%BANDS     = 2
THERMO_DATA(242)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(242)%A(1:7,1)  = &
   (/ 0.108104462E+06_EB,-0.126196135E+04_EB, 0.969201129E+01_EB,-0.179347700E-02_EB, 0.338033000E-06_EB,&
      0.414340000E-09_EB,-0.199053000E-12_EB/)
THERMO_DATA(242)%B(1:2,1)  = (/ 0.575497604E+05_EB,-0.291571995E+02_EB/)
THERMO_DATA(242)%A(1:7,2)  = &
   (/-0.130216609E+06_EB,-0.146675953E+03_EB, 0.761072945E+01_EB,-0.446943000E-04_EB, 0.994716000E-08_EB,&
     -0.114704000E-11_EB, 0.533924000E-16_EB/)
THERMO_DATA(242)%B(1:2,2)  = (/ 0.509876231E+05_EB,-0.152801105E+02_EB/)
THERMO_DATA(242)%H_F       =    439.095089_EB
THERMO_DATA(242)%SIGMA     =  3.561_EB ! R-132
THERMO_DATA(242)%EPSOK     =  1827.00_EB
THERMO_DATA(242)%PR        =  0.71_EB ! R-132
 
THERMO_DATA(243)%FORMULA   = 'LiBr'
THERMO_DATA(243)%NAME      = 'LITHIUM BROMIDE'
THERMO_DATA(243)%POLY      = 'NASA9'
THERMO_DATA(243)%BANDS     = 2
THERMO_DATA(243)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(243)%A(1:7,1)  = &
   (/ 0.380562047E+05_EB,-0.612961499E+03_EB, 0.657736955E+01_EB,-0.421989200E-02_EB, 0.539142000E-05_EB,&
     -0.369314000E-08_EB, 0.104916000E-11_EB/)
THERMO_DATA(243)%B(1:2,1)  = (/-0.163748762E+05_EB,-0.112865401E+02_EB/)
THERMO_DATA(243)%A(1:7,2)  = &
   (/ 0.638019142E+05_EB,-0.259705076E+03_EB, 0.465676887E+01_EB, 0.102287000E-03_EB,-0.517825000E-07_EB,&
      0.205820000E-10_EB,-0.194219000E-14_EB/)
THERMO_DATA(243)%B(1:2,2)  = (/-0.179336375E+05_EB,-0.229080661E+00_EB/)
THERMO_DATA(243)%H_F       =   -151.162890_EB
THERMO_DATA(243)%SIGMA     =  3.748_EB ! R-132
THERMO_DATA(243)%EPSOK     =  1815.00_EB
THERMO_DATA(243)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(244)%FORMULA   = 'LiCl'
THERMO_DATA(244)%NAME      = 'LITHIUM CHLORIDE'
THERMO_DATA(244)%POLY      = 'NASA9'
THERMO_DATA(244)%BANDS     = 2
THERMO_DATA(244)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(244)%A(1:7,1)  = &
   (/ 0.496439950E+05_EB,-0.718734662E+03_EB, 0.678514703E+01_EB,-0.452214500E-02_EB, 0.574848000E-05_EB,&
     -0.396626000E-08_EB, 0.113791000E-11_EB/)
THERMO_DATA(244)%B(1:2,1)  = (/-0.209101470E+05_EB,-0.140638390E+02_EB/)
THERMO_DATA(244)%A(1:7,2)  = &
   (/-0.235276970E+06_EB, 0.612004692E+03_EB, 0.363429373E+01_EB, 0.681097000E-03_EB,-0.217424000E-06_EB,&
      0.422040000E-10_EB,-0.284863000E-14_EB/)
THERMO_DATA(244)%B(1:2,2)  = (/-0.286235849E+05_EB, 0.561851114E+01_EB/)
THERMO_DATA(244)%H_F       =   -193.779891_EB
THERMO_DATA(244)%SIGMA     =  3.078_EB ! R-132
THERMO_DATA(244)%EPSOK     =  1919.00_EB
THERMO_DATA(244)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(245)%FORMULA   = 'LiF'
THERMO_DATA(245)%NAME      = 'LITHIUM FLUORIDE'
THERMO_DATA(245)%POLY      = 'NASA9'
THERMO_DATA(245)%BANDS     = 2
THERMO_DATA(245)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(245)%A(1:7,1)  = &
   (/ 0.291253732E+05_EB,-0.253141316E+03_EB, 0.353972798E+01_EB, 0.369591700E-02_EB,-0.482947000E-05_EB,&
      0.294409000E-08_EB,-0.683879000E-12_EB/)
THERMO_DATA(245)%B(1:2,1)  = (/-0.406484966E+05_EB, 0.232529441E+01_EB/)
THERMO_DATA(245)%A(1:7,2)  = &
   (/-0.378424649E+06_EB, 0.766806246E+03_EB, 0.358547340E+01_EB, 0.603108000E-03_EB,-0.158876000E-06_EB,&
      0.256940000E-10_EB,-0.140680000E-14_EB/)
THERMO_DATA(245)%B(1:2,2)  = (/-0.475646945E+05_EB, 0.438516329E+01_EB/)
THERMO_DATA(245)%H_F       =   -340.944894_EB
THERMO_DATA(245)%SIGMA     =  3.278_EB ! R-132
THERMO_DATA(245)%EPSOK     =  2305.00_EB
THERMO_DATA(245)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(246)%FORMULA   = 'LiI'
THERMO_DATA(246)%NAME      = 'LITHIUM IODIDE'
THERMO_DATA(246)%POLY      = 'NASA9'
THERMO_DATA(246)%BANDS     = 2
THERMO_DATA(246)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(246)%A(1:7,1)  = &
   (/ 0.407197637E+05_EB,-0.666728947E+03_EB, 0.706425753E+01_EB,-0.548004100E-02_EB, 0.690579000E-05_EB,&
     -0.453717000E-08_EB, 0.122637000E-11_EB/)
THERMO_DATA(246)%B(1:2,1)  = (/-0.823548702E+04_EB,-0.129623623E+02_EB/)
THERMO_DATA(246)%A(1:7,2)  = &
   (/ 0.161634263E+07_EB,-0.487771708E+04_EB, 0.998718655E+01_EB,-0.288913800E-02_EB, 0.803731000E-06_EB,&
     -0.902817000E-10_EB, 0.307832000E-14_EB/)
THERMO_DATA(246)%B(1:2,2)  = (/ 0.193771876E+05_EB,-0.372927631E+02_EB/)
THERMO_DATA(246)%H_F       =    -85.269888_EB
THERMO_DATA(246)%SIGMA     =  4.180_EB ! R-132
THERMO_DATA(246)%EPSOK     =  1726.00_EB
THERMO_DATA(246)%PR        =  0.71_EB ! R-132
 
THERMO_DATA(247)%FORMULA   = 'LiO'
THERMO_DATA(247)%NAME      = 'LITHIUM MONOXIDE'
THERMO_DATA(247)%POLY      = 'NASA9'
THERMO_DATA(247)%BANDS     = 2
THERMO_DATA(247)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(247)%A(1:7,1)  = &
   (/ 0.362702976E+05_EB,-0.349936323E+03_EB, 0.439493318E+01_EB, 0.107971300E-02_EB,-0.872404000E-06_EB,&
      0.560796000E-09_EB,-0.205429000E-12_EB/)
THERMO_DATA(247)%B(1:2,1)  = (/ 0.953333053E+04_EB,-0.905814961E+00_EB/)
THERMO_DATA(247)%A(1:7,2)  = &
   (/ 0.161239213E+07_EB,-0.555131234E+04_EB, 0.112057385E+02_EB,-0.343722700E-02_EB, 0.913319000E-06_EB,&
     -0.102790000E-09_EB, 0.382299000E-14_EB/)
THERMO_DATA(247)%B(1:2,2)  = (/ 0.420157547E+05_EB,-0.485735458E+02_EB/)
THERMO_DATA(247)%H_F       =     72.914313_EB
THERMO_DATA(247)%SIGMA     =  3.334_EB ! R-132
THERMO_DATA(247)%EPSOK     =   450.00_EB
THERMO_DATA(247)%PR        =  0.69_EB ! R-132
 
THERMO_DATA(248)%FORMULA   = 'Mg'
THERMO_DATA(248)%NAME      = 'MAGNESIUM'
THERMO_DATA(248)%POLY      = 'NASA9'
THERMO_DATA(248)%BANDS     = 3
THERMO_DATA(248)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(248)%A(1:7,1)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(248)%B(1:2,1)  = (/ 0.169465876E+05_EB, 0.363433014E+01_EB/)
THERMO_DATA(248)%A(1:7,2)  = &
   (/-0.536483155E+06_EB, 0.197370958E+04_EB,-0.363377690E+00_EB, 0.207179600E-02_EB,-0.773805000E-06_EB,&
      0.135928000E-09_EB,-0.776690000E-14_EB/)
THERMO_DATA(248)%B(1:2,2)  = (/ 0.482918811E+04_EB, 0.233910500E+02_EB/)
THERMO_DATA(248)%A(1:7,3)  = &
   (/ 0.216601259E+10_EB,-0.100835567E+07_EB, 0.161968002E+03_EB,-0.879013000E-02_EB,-0.192569000E-07_EB,&
      0.172505000E-10_EB,-0.423495000E-15_EB/)
THERMO_DATA(248)%B(1:2,3)  = (/ 0.834952590E+07_EB,-0.146935526E+04_EB/)
THERMO_DATA(248)%H_F       =    147.100000_EB
THERMO_DATA(248)%SIGMA     =  2.926_EB ! R-132
THERMO_DATA(248)%EPSOK     =  1614.00_EB
THERMO_DATA(248)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(249)%FORMULA   = 'Mg'
THERMO_DATA(249)%NAME      = 'MAGNESIUMp'
THERMO_DATA(249)%POLY      = 'NASA9'
THERMO_DATA(249)%BANDS     = 3
THERMO_DATA(249)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(249)%A(1:7,1)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(249)%B(1:2,1)  = (/ 0.106422335E+06_EB, 0.432744346E+01_EB/)
THERMO_DATA(249)%A(1:7,2)  = &
   (/-0.191475882E+05_EB, 0.487734792E+02_EB, 0.245766266E+01_EB, 0.121810000E-04_EB, 0.189726000E-08_EB,&
     -0.158043000E-11_EB, 0.213573000E-15_EB/)
THERMO_DATA(249)%B(1:2,2)  = (/ 0.106102239E+06_EB, 0.464644286E+01_EB/)
THERMO_DATA(249)%A(1:7,3)  = &
   (/ 0.401594955E+09_EB,-0.228159174E+06_EB, 0.542174571E+02_EB,-0.598301700E-02_EB, 0.365719000E-06_EB,&
     -0.102074000E-10_EB, 0.102420000E-15_EB/)
THERMO_DATA(249)%B(1:2,3)  = (/ 0.193246396E+07_EB,-0.448015783E+03_EB/)
THERMO_DATA(249)%H_F       =    891.047000_EB
THERMO_DATA(249)%SIGMA     =  2.926_EB ! R-132
THERMO_DATA(249)%EPSOK     =  1614.00_EB
THERMO_DATA(249)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(250)%FORMULA   = 'Mg2'
THERMO_DATA(250)%NAME      = 'MAGNEISUM DIMER'
THERMO_DATA(250)%POLY      = 'NASA9'
THERMO_DATA(250)%BANDS     = 2
THERMO_DATA(250)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(250)%A(1:7,1)  = &
   (/ 0.454519559E+04_EB, 0.411585004E+03_EB, 0.484119617E+00_EB, 0.489197000E-02_EB,-0.639554000E-05_EB,&
      0.429976000E-08_EB,-0.116462000E-11_EB/)
THERMO_DATA(250)%B(1:2,1)  = (/ 0.318164179E+05_EB, 0.264043214E+02_EB/)
THERMO_DATA(250)%A(1:7,2)  = &
   (/ 0.303822499E+05_EB, 0.594524046E+02_EB, 0.235270667E+01_EB, 0.137854000E-03_EB,-0.589569000E-07_EB,&
      0.110405000E-10_EB,-0.655887000E-15_EB/)
THERMO_DATA(250)%B(1:2,2)  = (/ 0.335103656E+05_EB, 0.158817738E+02_EB/)
THERMO_DATA(250)%H_F       =    286.513315_EB
THERMO_DATA(250)%SIGMA     =  3.301_EB ! R-132
THERMO_DATA(250)%EPSOK     =  1614.00_EB
THERMO_DATA(250)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(251)%FORMULA   = 'MgCl'
THERMO_DATA(251)%NAME      = 'MAGNESIUM MONOCHLORIDE'
THERMO_DATA(251)%POLY      = 'NASA9'
THERMO_DATA(251)%BANDS     = 2
THERMO_DATA(251)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(251)%A(1:7,1)  = &
   (/ 0.204399528E+05_EB,-0.407215516E+03_EB, 0.588037230E+01_EB,-0.259417500E-02_EB, 0.294595000E-05_EB,&
     -0.175065000E-08_EB, 0.433796000E-12_EB/)
THERMO_DATA(251)%B(1:2,1)  = (/-0.585144495E+04_EB,-0.602354575E+01_EB/)
THERMO_DATA(251)%A(1:7,2)  = &
   (/ 0.104132845E+07_EB,-0.338015833E+04_EB, 0.863777547E+01_EB,-0.244779000E-02_EB, 0.784197000E-06_EB,&
     -0.112641000E-09_EB, 0.581062000E-14_EB/)
THERMO_DATA(251)%B(1:2,2)  = (/ 0.132718898E+05_EB,-0.270380239E+02_EB/)
THERMO_DATA(251)%H_F       =    -54.704887_EB
THERMO_DATA(251)%SIGMA     =  3.759_EB ! R-132
THERMO_DATA(251)%EPSOK     =   714.00_EB
THERMO_DATA(251)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(252)%FORMULA   = 'MgCl'
THERMO_DATA(252)%NAME      = 'MAGNESIUM MONOCHLORIDEp'
THERMO_DATA(252)%POLY      = 'NASA9'
THERMO_DATA(252)%BANDS     = 3
THERMO_DATA(252)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(252)%A(1:7,1)  = &
   (/ 0.818238512E+04_EB,-0.262225376E+03_EB, 0.541986343E+01_EB,-0.177413000E-02_EB, 0.218581000E-05_EB,&
     -0.141814000E-08_EB, 0.391890000E-12_EB/)
THERMO_DATA(252)%B(1:2,1)  = (/ 0.777040371E+05_EB,-0.378093884E+01_EB/)
THERMO_DATA(252)%A(1:7,2)  = &
   (/-0.126839192E+08_EB, 0.347882454E+05_EB,-0.300422295E+02_EB, 0.148173950E-01_EB,-0.247097000E-05_EB,&
      0.142443000E-09_EB, 0.278961000E-15_EB/)
THERMO_DATA(252)%B(1:2,2)  = (/-0.148701374E+06_EB, 0.255201512E+03_EB/)
THERMO_DATA(252)%A(1:7,3)  = &
   (/ 0.138246342E+09_EB,-0.632473563E+05_EB, 0.209016449E+02_EB,-0.192432000E-02_EB, 0.130344000E-06_EB,&
     -0.435425000E-11_EB, 0.585201000E-16_EB/)
THERMO_DATA(252)%B(1:2,3)  = (/ 0.585614410E+06_EB,-0.137960922E+03_EB/)
THERMO_DATA(252)%H_F       =    646.339332_EB
THERMO_DATA(252)%SIGMA     =  3.759_EB ! R-132
THERMO_DATA(252)%EPSOK     =   714.00_EB
THERMO_DATA(252)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(253)%FORMULA   = 'MgCl2'
THERMO_DATA(253)%NAME      = 'MAGNESIUM CHLORIDE'
THERMO_DATA(253)%POLY      = 'NASA9'
THERMO_DATA(253)%BANDS     = 2
THERMO_DATA(253)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(253)%A(1:7,1)  = &
   (/ 0.363782468E+05_EB,-0.730784496E+03_EB, 0.966103051E+01_EB,-0.366021300E-02_EB, 0.361082000E-05_EB,&
     -0.192877000E-08_EB, 0.430991000E-12_EB/)
THERMO_DATA(253)%B(1:2,1)  = (/-0.464691457E+05_EB,-0.236011227E+02_EB/)
THERMO_DATA(253)%A(1:7,2)  = &
   (/-0.683521701E+05_EB,-0.249089939E+02_EB, 0.751878320E+01_EB,-0.756452000E-05_EB, 0.167929000E-08_EB,&
     -0.193171000E-12_EB, 0.897166000E-17_EB/)
THERMO_DATA(253)%B(1:2,2)  = (/-0.503268691E+05_EB,-0.105326838E+02_EB/)
THERMO_DATA(253)%H_F       =   -399.169896_EB
THERMO_DATA(253)%SIGMA     = 34.000_EB ! R-132
THERMO_DATA(253)%EPSOK     =  1988.00_EB
THERMO_DATA(253)%PR        =  0.72_EB ! R-132
 
THERMO_DATA(254)%FORMULA   = 'MgF'
THERMO_DATA(254)%NAME      = 'MAGNESIUM MONOFLUORIDE'
THERMO_DATA(254)%POLY      = 'NASA9'
THERMO_DATA(254)%BANDS     = 2
THERMO_DATA(254)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(254)%A(1:7,1)  = &
   (/ 0.382300162E+05_EB,-0.480331039E+03_EB, 0.506846894E+01_EB, 0.521203000E-03_EB,-0.187403000E-05_EB,&
      0.175924000E-08_EB,-0.560940000E-12_EB/)
THERMO_DATA(254)%B(1:2,1)  = (/-0.265911430E+05_EB,-0.376896921E+01_EB/)
THERMO_DATA(254)%A(1:7,2)  = &
   (/-0.169588378E+06_EB, 0.358875763E+03_EB, 0.393600165E+01_EB, 0.481304000E-03_EB,-0.165839000E-06_EB,&
      0.333605000E-10_EB,-0.227010000E-14_EB/)
THERMO_DATA(254)%B(1:2,2)  = (/-0.316932399E+05_EB, 0.441056590E+01_EB/)
THERMO_DATA(254)%H_F       =   -232.266792_EB
THERMO_DATA(254)%SIGMA     =  4.340_EB ! R-132
THERMO_DATA(254)%EPSOK     =  1988.00_EB
THERMO_DATA(254)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(255)%FORMULA   = 'MgF'
THERMO_DATA(255)%NAME      = 'MAGNESIUM MONOFLUORIDEp'
THERMO_DATA(255)%POLY      = 'NASA9'
THERMO_DATA(255)%BANDS     = 3
THERMO_DATA(255)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(255)%A(1:7,1)  = &
   (/ 0.641329384E+06_EB,-0.851853261E+04_EB, 0.481421691E+02_EB,-0.116307153E+00_EB, 0.162256000E-03_EB,&
     -0.106348000E-06_EB, 0.263481000E-10_EB/)
THERMO_DATA(255)%B(1:2,1)  = (/ 0.102430848E+06_EB,-0.245007430E+03_EB/)
THERMO_DATA(255)%A(1:7,2)  = &
   (/-0.105685236E+08_EB, 0.207712238E+05_EB,-0.611952356E+01_EB, 0.224583500E-02_EB,-0.951574000E-07_EB,&
     -0.226350000E-10_EB, 0.228452000E-14_EB/)
THERMO_DATA(255)%B(1:2,2)  = (/-0.833154988E+05_EB, 0.872710238E+02_EB/)
THERMO_DATA(255)%A(1:7,3)  = &
   (/ 0.573580446E+08_EB,-0.215737834E+05_EB, 0.657231755E+01_EB, 0.188761000E-03_EB,-0.186086000E-07_EB,&
      0.686219000E-12_EB,-0.859782000E-17_EB/)
THERMO_DATA(255)%B(1:2,3)  = (/ 0.247761573E+06_EB,-0.192275011E+02_EB/)
THERMO_DATA(255)%H_F       =    516.867775_EB
THERMO_DATA(255)%SIGMA     =  4.340_EB ! R-132
THERMO_DATA(255)%EPSOK     =  1988.00_EB
THERMO_DATA(255)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(256)%FORMULA   = 'MgF2'
THERMO_DATA(256)%NAME      = 'MAGNESIUM FLUORIDE'
THERMO_DATA(256)%POLY      = 'NASA9'
THERMO_DATA(256)%BANDS     = 2
THERMO_DATA(256)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(256)%A(1:7,1)  = &
   (/ 0.433842955E+05_EB,-0.661651177E+03_EB, 0.745344852E+01_EB, 0.352081400E-02_EB,-0.695576000E-05_EB,&
      0.561992000E-08_EB,-0.168803000E-11_EB/)
THERMO_DATA(256)%B(1:2,1)  = (/-0.868718367E+05_EB,-0.154547679E+02_EB/)
THERMO_DATA(256)%A(1:7,2)  = &
   (/-0.124441958E+06_EB,-0.868734375E+02_EB, 0.756358123E+01_EB,-0.249927000E-04_EB, 0.544013000E-08_EB,&
     -0.615825000E-12_EB, 0.282279000E-16_EB/)
THERMO_DATA(256)%B(1:2,2)  = (/-0.906001944E+05_EB,-0.142079699E+02_EB/)
THERMO_DATA(256)%H_F       =   -735.498060_EB
THERMO_DATA(256)%SIGMA     =  3.329_EB ! R-132
THERMO_DATA(256)%EPSOK     =   426.00_EB
THERMO_DATA(256)%PR        =  0.72_EB ! R-132
 
THERMO_DATA(257)%FORMULA   = 'MgF2'
THERMO_DATA(257)%NAME      = 'MAGNESIUM FLUORIDEp'
THERMO_DATA(257)%POLY      = 'NASA9'
THERMO_DATA(257)%BANDS     = 3
THERMO_DATA(257)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(257)%A(1:7,1)  = &
   (/ 0.783222026E+05_EB,-0.117663275E+04_EB, 0.102582977E+02_EB,-0.375527300E-02_EB, 0.301662000E-05_EB,&
     -0.132710000E-08_EB, 0.246529000E-12_EB/)
THERMO_DATA(257)%B(1:2,1)  = (/ 0.741322855E+05_EB,-0.299088355E+02_EB/)
THERMO_DATA(257)%A(1:7,2)  = &
   (/-0.150231687E+06_EB, 0.772528956E+02_EB, 0.727156936E+01_EB, 0.223753000E-03_EB,-0.100307000E-06_EB,&
      0.199627000E-10_EB,-0.123328000E-14_EB/)
THERMO_DATA(257)%B(1:2,2)  = (/ 0.669911750E+05_EB,-0.109452801E+02_EB/)
THERMO_DATA(257)%A(1:7,3)  = &
   (/ 0.260190391E+08_EB,-0.538887926E+04_EB, 0.521819828E+01_EB, 0.763254000E-03_EB,-0.660623000E-07_EB,&
      0.242865000E-11_EB,-0.334190000E-16_EB/)
THERMO_DATA(257)%B(1:2,3)  = (/ 0.122864035E+06_EB, 0.339078304E+01_EB/)
THERMO_DATA(257)%H_F       =    582.692164_EB
THERMO_DATA(257)%SIGMA     =  3.623_EB ! R-132
THERMO_DATA(257)%EPSOK     =  2964.00_EB
THERMO_DATA(257)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(258)%FORMULA   = 'N'
THERMO_DATA(258)%NAME      = 'NITROGEN ATOM'
THERMO_DATA(258)%POLY      = 'NASA9'
THERMO_DATA(258)%BANDS     = 3
THERMO_DATA(258)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(258)%A(1:7,1)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(258)%B(1:2,1)  = (/ 0.561046378E+05_EB, 0.419390504E+01_EB/)
THERMO_DATA(258)%A(1:7,2)  = &
   (/ 0.887650138E+05_EB,-0.107123150E+03_EB, 0.236218829E+01_EB, 0.291672000E-03_EB,-0.172952000E-06_EB,&
      0.401266000E-10_EB,-0.267723000E-14_EB/)
THERMO_DATA(258)%B(1:2,2)  = (/ 0.569735133E+05_EB, 0.486523151E+01_EB/)
THERMO_DATA(258)%A(1:7,3)  = &
   (/ 0.547518105E+09_EB,-0.310757498E+06_EB, 0.691678274E+02_EB,-0.684798800E-02_EB, 0.382757000E-06_EB,&
     -0.109837000E-10_EB, 0.127799000E-15_EB/)
THERMO_DATA(258)%B(1:2,3)  = (/ 0.255058562E+07_EB,-0.584876975E+03_EB/)
THERMO_DATA(258)%H_F       =    472.680000_EB
THERMO_DATA(258)%SIGMA     =  3.298_EB ! R-132
THERMO_DATA(258)%EPSOK     =    71.40_EB
THERMO_DATA(258)%PR        =  0.71_EB ! JPCRD (19)5
 
THERMO_DATA(259)%FORMULA   = 'N'
THERMO_DATA(259)%NAME      = 'NITROGEN ATOMm'
THERMO_DATA(259)%POLY      = 'NASA9'
THERMO_DATA(259)%BANDS     = 3
THERMO_DATA(259)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(259)%A(1:7,1)  = &
   (/ 0.144568247E+04_EB, 0.733520511E+01_EB, 0.247668094E+01_EB, 0.422787000E-04_EB,-0.442629000E-07_EB,&
      0.249099000E-10_EB,-0.583161000E-14_EB/)
THERMO_DATA(259)%B(1:2,1)  = (/ 0.561762500E+05_EB, 0.514575398E+01_EB/)
THERMO_DATA(259)%A(1:7,2)  = &
   (/ 0.240418958E+04_EB, 0.295496534E+00_EB, 0.249978937E+01_EB, 0.830756000E-07_EB,-0.182994000E-10_EB,&
      0.210014000E-14_EB,-0.975499000E-19_EB/)
THERMO_DATA(259)%B(1:2,2)  = (/ 0.562141389E+05_EB, 0.500648416E+01_EB/)
THERMO_DATA(259)%A(1:7,3)  = &
   (/ 0.188437947E+04_EB, 0.390551691E+00_EB, 0.249991404E+01_EB, 0.981851000E-08_EB,-0.612604000E-12_EB,&
      0.198001000E-16_EB,-0.259330000E-21_EB/)
THERMO_DATA(259)%B(1:2,3)  = (/ 0.562130452E+05_EB, 0.500564761E+01_EB/)
THERMO_DATA(259)%H_F       =    473.537545_EB
THERMO_DATA(259)%SIGMA     =  3.298_EB ! R-132
THERMO_DATA(259)%EPSOK     =    71.40_EB
THERMO_DATA(259)%PR        =  0.71_EB ! JPCRD (19)5
 
THERMO_DATA(260)%FORMULA   = 'N'
THERMO_DATA(260)%NAME      = 'NITROGEN ATOMp'
THERMO_DATA(260)%POLY      = 'NASA9'
THERMO_DATA(260)%BANDS     = 3
THERMO_DATA(260)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(260)%A(1:7,1)  = &
   (/ 0.523707921E+04_EB, 0.229995832E+01_EB, 0.248748882E+01_EB, 0.273749000E-04_EB,-0.313445000E-07_EB,&
      0.185011000E-10_EB,-0.444735000E-14_EB/)
THERMO_DATA(260)%B(1:2,1)  = (/ 0.225628474E+06_EB, 0.507683079E+01_EB/)
THERMO_DATA(260)%A(1:7,2)  = &
   (/ 0.290497037E+06_EB,-0.855790861E+03_EB, 0.347738929E+01_EB,-0.528827000E-03_EB, 0.135235000E-06_EB,&
     -0.138983000E-10_EB, 0.504617000E-15_EB/)
THERMO_DATA(260)%B(1:2,2)  = (/ 0.231080998E+06_EB,-0.199414654E+01_EB/)
THERMO_DATA(260)%A(1:7,3)  = &
   (/ 0.164609215E+08_EB,-0.111316522E+05_EB, 0.497698664E+01_EB,-0.200539000E-03_EB, 0.102248000E-07_EB,&
     -0.269143000E-12_EB, 0.353993000E-17_EB/)
THERMO_DATA(260)%B(1:2,3)  = (/ 0.313628470E+06_EB,-0.170664638E+02_EB/)
THERMO_DATA(260)%H_F       =   1882.127620_EB
THERMO_DATA(260)%SIGMA     =  3.298_EB ! R-132
THERMO_DATA(260)%EPSOK     =    71.40_EB
THERMO_DATA(260)%PR        =  0.71_EB ! JPCRD (19)5
 
THERMO_DATA(261)%FORMULA   = 'N2'
THERMO_DATA(261)%NAME      = 'NITROGEN'
THERMO_DATA(261)%POLY      = 'NASA9'
THERMO_DATA(261)%BANDS     = 3
THERMO_DATA(261)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(261)%A(1:7,1)  = &
   (/ 0.221037150E+05_EB,-0.381846182E+03_EB, 0.608273836E+01_EB,-0.853091400E-02_EB, 0.138465000E-04_EB,&
     -0.962579000E-08_EB, 0.251971000E-11_EB/)
THERMO_DATA(261)%B(1:2,1)  = (/ 0.710846086E+03_EB,-0.107600374E+02_EB/)
THERMO_DATA(261)%A(1:7,2)  = &
   (/ 0.587712406E+06_EB,-0.223924907E+04_EB, 0.606694922E+01_EB,-0.613969000E-03_EB, 0.149181000E-06_EB,&
     -0.192311000E-10_EB, 0.106195000E-14_EB/)
THERMO_DATA(261)%B(1:2,2)  = (/ 0.128321041E+05_EB,-0.158664003E+02_EB/)
THERMO_DATA(261)%A(1:7,3)  = &
   (/ 0.831013916E+09_EB,-0.642073354E+06_EB, 0.202026464E+03_EB,-0.306509210E-01_EB, 0.248690000E-05_EB,&
     -0.970595000E-10_EB, 0.143754000E-14_EB/)
THERMO_DATA(261)%B(1:2,3)  = (/ 0.493870704E+07_EB,-0.167209974E+04_EB/)
THERMO_DATA(261)%H_F       =      0.000000_EB
THERMO_DATA(261)%SIGMA     =  3.798_EB ! R-132
THERMO_DATA(261)%EPSOK     =    71.40_EB
THERMO_DATA(261)%PR        =  0.71_EB ! JPCRD (19)5
THERMO_DATA(261)%LIQUID    = .TRUE.
THERMO_DATA(261)%T_L(1:2)  = (/65._EB,90._EB/)
THERMO_DATA(261)%A_L(3:6,1)= (/-5.75359E+03_EB,3.01689E+02_EB,-3.93206E+00_EB,1.72593E-02_EB/)
THERMO_DATA(261)%H_V = 212890.8484_EB !J/kg
THERMO_DATA(261)%T_REF = 63.3_EB !K
THERMO_DATA(261)%T_MELT = 63.3_EB !K
THERMO_DATA(261)%T_BOIL = 77.35_EB !K
THERMO_DATA(261)%DENSITY = 807._EB !kg/m^3
THERMO_DATA(261)%MU = 0.000158_EB !N.s/m^2
THERMO_DATA(261)%K = 0.139 !W/m/K
THERMO_DATA(261)%BETA = 0.00753_EB !1/K

THERMO_DATA(262)%FORMULA   = 'N2'
THERMO_DATA(262)%NAME      = 'NITROGENm'
THERMO_DATA(262)%POLY      = 'NASA9'
THERMO_DATA(262)%BANDS     = 3
THERMO_DATA(262)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(262)%A(1:7,1)  = &
   (/-0.814622711E+05_EB, 0.906360079E+03_EB,-0.152005408E+00_EB, 0.602319100E-02_EB,-0.289714000E-05_EB,&
     -0.412911000E-10_EB, 0.320699000E-12_EB/)
THERMO_DATA(262)%B(1:2,1)  = (/ 0.121880855E+05_EB, 0.263806885E+02_EB/)
THERMO_DATA(262)%A(1:7,2)  = &
   (/ 0.216963771E+06_EB,-0.127509852E+04_EB, 0.539109570E+01_EB,-0.319891000E-03_EB, 0.731105000E-07_EB,&
     -0.820202000E-11_EB, 0.374004000E-15_EB/)
THERMO_DATA(262)%B(1:2,2)  = (/ 0.242496431E+05_EB,-0.901493429E+01_EB/)
THERMO_DATA(262)%A(1:7,3)  = &
   (/ 0.134585079E+07_EB,-0.106056550E+04_EB, 0.473202685E+01_EB,-0.509145000E-05_EB, 0.162821000E-08_EB,&
     -0.522424000E-13_EB, 0.679665000E-18_EB/)
THERMO_DATA(262)%B(1:2,3)  = (/ 0.239462768E+05_EB,-0.429786154E+01_EB/)
THERMO_DATA(262)%H_F       =    148.183282_EB
THERMO_DATA(262)%SIGMA     =  3.798_EB ! R-132
THERMO_DATA(262)%EPSOK     =    71.40_EB
THERMO_DATA(262)%PR        =  0.71_EB ! JPCRD (19)5
 
THERMO_DATA(263)%FORMULA   = 'N2'
THERMO_DATA(263)%NAME      = 'NITROGENp'
THERMO_DATA(263)%POLY      = 'NASA9'
THERMO_DATA(263)%BANDS     = 3
THERMO_DATA(263)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(263)%A(1:7,1)  = &
   (/-0.347404747E+05_EB, 0.269622270E+03_EB, 0.316491637E+01_EB,-0.213224000E-02_EB, 0.673048000E-05_EB,&
     -0.563730000E-08_EB, 0.162176000E-11_EB/)
THERMO_DATA(263)%B(1:2,1)  = (/ 0.179000442E+06_EB, 0.683297417E+01_EB/)
THERMO_DATA(263)%A(1:7,2)  = &
   (/-0.284559900E+07_EB, 0.705889303E+04_EB,-0.288488639E+01_EB, 0.306867700E-02_EB,-0.436165000E-06_EB,&
      0.210251000E-10_EB, 0.541200000E-15_EB/)
THERMO_DATA(263)%B(1:2,2)  = (/ 0.134038848E+06_EB, 0.509089702E+02_EB/)
THERMO_DATA(263)%A(1:7,3)  = &
   (/-0.371282977E+09_EB, 0.313928723E+06_EB,-0.960351805E+02_EB, 0.157119330E-01_EB,-0.117507000E-05_EB,&
      0.414444000E-10_EB,-0.562189000E-15_EB/)
THERMO_DATA(263)%B(1:2,3)  = (/-0.221736187E+07_EB, 0.843627095E+03_EB/)
THERMO_DATA(263)%H_F       =   1509.508420_EB
THERMO_DATA(263)%SIGMA     =  3.798_EB ! R-132
THERMO_DATA(263)%EPSOK     =    71.40_EB
THERMO_DATA(263)%PR        =  0.71_EB ! JPCRD (19)5
 
THERMO_DATA(264)%FORMULA   = 'N2H2'
THERMO_DATA(264)%NAME      = 'DIIMIDE'
THERMO_DATA(264)%POLY      = 'NASA9'
THERMO_DATA(264)%BANDS     = 2
THERMO_DATA(264)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(264)%A(1:7,1)  = &
   (/-0.150400516E+06_EB, 0.234668772E+04_EB,-0.940543029E+01_EB, 0.328429980E-01_EB,-0.312192000E-04_EB,&
      0.172128000E-07_EB,-0.401454000E-11_EB/)
THERMO_DATA(264)%B(1:2,1)  = (/ 0.131938404E+05_EB, 0.783238263E+02_EB/)
THERMO_DATA(264)%A(1:7,2)  = &
   (/ 0.621756787E+07_EB,-0.175395210E+05_EB, 0.202273051E+02_EB,-0.975730000E-03_EB,-0.420842000E-06_EB,&
      0.111792000E-09_EB,-0.762710000E-14_EB/)
THERMO_DATA(264)%B(1:2,2)  = (/ 0.137415257E+06_EB,-0.119955917E+03_EB/)
THERMO_DATA(264)%H_F       =    211.858756_EB
THERMO_DATA(264)%SIGMA     =  3.798_EB ! GRM3
THERMO_DATA(264)%EPSOK     =    71.40_EB
THERMO_DATA(264)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(265)%FORMULA   = 'N2H4'
THERMO_DATA(265)%NAME      = 'HYDRAZINE'
THERMO_DATA(265)%POLY      = 'NASA9'
THERMO_DATA(265)%BANDS     = 2
THERMO_DATA(265)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(265)%A(1:7,1)  = &
   (/-0.166075635E+06_EB, 0.303541674E+04_EB,-0.173688982E+02_EB, 0.715983400E-01_EB,-0.886680000E-04_EB,&
      0.579897000E-07_EB,-0.153004000E-10_EB/)
THERMO_DATA(265)%B(1:2,1)  = (/-0.373192723E+04_EB, 0.119000222E+03_EB/)
THERMO_DATA(265)%A(1:7,2)  = &
   (/ 0.329348670E+07_EB,-0.119985063E+05_EB, 0.210440681E+02_EB,-0.139938200E-02_EB, 0.193317000E-06_EB,&
     -0.131802000E-10_EB, 0.316640000E-15_EB/)
THERMO_DATA(265)%B(1:2,2)  = (/ 0.834843370E+05_EB,-0.115575102E+03_EB/)
THERMO_DATA(265)%H_F       =     95.180000_EB
THERMO_DATA(265)%SIGMA     =  4.230_EB ! GRM3
THERMO_DATA(265)%EPSOK     =   205.00_EB
THERMO_DATA(265)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(266)%FORMULA   = 'N2O'
THERMO_DATA(266)%NAME      = 'NITROUS OXIDE'
THERMO_DATA(266)%POLY      = 'NASA9'
THERMO_DATA(266)%BANDS     = 2
THERMO_DATA(266)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(266)%A(1:7,1)  = &
   (/ 0.428822597E+05_EB,-0.644011844E+03_EB, 0.603435143E+01_EB, 0.226539000E-03_EB, 0.347278000E-05_EB,&
     -0.362775000E-08_EB, 0.113797000E-11_EB/)
THERMO_DATA(266)%B(1:2,1)  = (/ 0.117940551E+05_EB,-0.100312857E+02_EB/)
THERMO_DATA(266)%A(1:7,2)  = &
   (/ 0.343844804E+06_EB,-0.240455756E+04_EB, 0.912563622E+01_EB,-0.540167000E-03_EB, 0.131512000E-06_EB,&
     -0.141422000E-10_EB, 0.638107000E-15_EB/)
THERMO_DATA(266)%B(1:2,2)  = (/ 0.219863264E+05_EB,-0.314780502E+02_EB/)
THERMO_DATA(266)%H_F       =     81.600000_EB
THERMO_DATA(266)%SIGMA     =  3.828_EB ! R-132
THERMO_DATA(266)%EPSOK     =   232.40_EB
THERMO_DATA(266)%PR        =  0.74_EB ! JPCRD (19)5
THERMO_DATA(266)%LIQUID    = .TRUE.
THERMO_DATA(266)%T(1:2)    = (/182.29_EB,184.67_EB/)
THERMO_DATA(266)%A_L(3:4,1)= (/187.7_EB,8.5_EB/)
THERMO_DATA(266)%H_V       = 376140._EB !J/kg
THERMO_DATA(266)%T_REF     = 182.29_EB !K
THERMO_DATA(266)%T_MELT    = 182.29_EB !K
THERMO_DATA(266)%T_BOIL    = 184.67_EB !K
THERMO_DATA(266)%DENSITY   = 1266._EB !kg/m^3
THERMO_DATA(266)%K         = 0.146_EB !W/m/K
THERMO_DATA(266)%MU        = 0.00045 !N.s/m^2

THERMO_DATA(267)%FORMULA   = 'N2O'
THERMO_DATA(267)%NAME      = 'NITROUS OXIDEp'
THERMO_DATA(267)%POLY      = 'NASA9'
THERMO_DATA(267)%BANDS     = 2
THERMO_DATA(267)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(267)%A(1:7,1)  = &
   (/-0.562414708E+05_EB, 0.669621161E+03_EB, 0.878145620E-01_EB, 0.152447600E-01_EB,-0.152729000E-04_EB,&
      0.782724000E-08_EB,-0.164674000E-11_EB/)
THERMO_DATA(267)%B(1:2,1)  = (/ 0.155729519E+06_EB, 0.256235479E+02_EB/)
THERMO_DATA(267)%A(1:7,2)  = &
   (/-0.298355325E+05_EB,-0.117945597E+04_EB, 0.830018669E+01_EB,-0.288727000E-03_EB, 0.570511000E-07_EB,&
     -0.595889000E-11_EB, 0.283573000E-15_EB/)
THERMO_DATA(267)%B(1:2,2)  = (/ 0.164602177E+06_EB,-0.228735662E+02_EB/)
THERMO_DATA(267)%H_F       =   1332.956510_EB
THERMO_DATA(267)%SIGMA     =  3.828_EB ! R-132
THERMO_DATA(267)%EPSOK     =   232.40_EB
THERMO_DATA(267)%PR        =  0.74_EB ! JPCRD (19)5
 
THERMO_DATA(268)%FORMULA   = 'Na'
THERMO_DATA(268)%NAME      = 'SODIUM'
THERMO_DATA(268)%POLY      = 'NASA9'
THERMO_DATA(268)%BANDS     = 3
THERMO_DATA(268)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(268)%A(1:7,1)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(268)%B(1:2,1)  = (/ 0.121838295E+05_EB, 0.424402818E+01_EB/)
THERMO_DATA(268)%A(1:7,2)  = &
   (/ 0.952572338E+06_EB,-0.262380725E+04_EB, 0.516259662E+01_EB,-0.121021900E-02_EB, 0.230630000E-06_EB,&
     -0.124960000E-10_EB, 0.722677000E-15_EB/)
THERMO_DATA(268)%B(1:2,2)  = (/ 0.291296356E+05_EB,-0.151971706E+02_EB/)
THERMO_DATA(268)%A(1:7,3)  = &
   (/ 0.159253339E+10_EB,-0.971783666E+06_EB, 0.223844396E+03_EB,-0.238093060E-01_EB, 0.135202000E-05_EB,&
     -0.393697000E-10_EB, 0.463069000E-15_EB/)
THERMO_DATA(268)%B(1:2,3)  = (/ 0.774867726E+07_EB,-0.193961550E+04_EB/)
THERMO_DATA(268)%H_F       =    107.500000_EB
THERMO_DATA(268)%SIGMA     =  3.567_EB ! R-132
THERMO_DATA(268)%EPSOK     =  1357.00_EB
THERMO_DATA(268)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(269)%FORMULA   = 'Na'
THERMO_DATA(269)%NAME      = 'SODIUMm'
THERMO_DATA(269)%POLY      = 'NASA9'
THERMO_DATA(269)%BANDS     = 3
THERMO_DATA(269)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(269)%A(1:7,1)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(269)%B(1:2,1)  = (/ 0.508219967E+04_EB, 0.355091679E+01_EB/)
THERMO_DATA(269)%A(1:7,2)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(269)%B(1:2,2)  = (/ 0.508219967E+04_EB, 0.355091679E+01_EB/)
THERMO_DATA(269)%A(1:7,3)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(269)%B(1:2,3)  = (/ 0.508219967E+04_EB, 0.355091679E+01_EB/)
THERMO_DATA(269)%H_F       =     48.453428_EB
THERMO_DATA(269)%SIGMA     =  3.567_EB ! R-132
THERMO_DATA(269)%EPSOK     =  1357.00_EB
THERMO_DATA(269)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(270)%FORMULA   = 'Na'
THERMO_DATA(270)%NAME      = 'SODIUMp'
THERMO_DATA(270)%POLY      = 'NASA9'
THERMO_DATA(270)%BANDS     = 3
THERMO_DATA(270)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(270)%A(1:7,1)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(270)%B(1:2,1)  = (/ 0.725653707E+05_EB, 0.355084508E+01_EB/)
THERMO_DATA(270)%A(1:7,2)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(270)%B(1:2,2)  = (/ 0.725653707E+05_EB, 0.355084508E+01_EB/)
THERMO_DATA(270)%A(1:7,3)  = &
   (/ 0.340120299E+05_EB,-0.213777462E+02_EB, 0.250544385E+01_EB,-0.718663000E-06_EB, 0.518880000E-10_EB,&
     -0.194451000E-14_EB, 0.295936000E-19_EB/)
THERMO_DATA(270)%B(1:2,3)  = (/ 0.727341362E+05_EB, 0.350390406E+01_EB/)
THERMO_DATA(270)%H_F       =    609.542928_EB
THERMO_DATA(270)%SIGMA     =  3.567_EB ! R-132
THERMO_DATA(270)%EPSOK     =  1357.00_EB
THERMO_DATA(270)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(271)%FORMULA   = 'Na2'
THERMO_DATA(271)%NAME      = 'DISODIUM'
THERMO_DATA(271)%POLY      = 'NASA9'
THERMO_DATA(271)%BANDS     = 2
THERMO_DATA(271)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(271)%A(1:7,1)  = &
   (/ 0.684862868E+04_EB,-0.153083660E+03_EB, 0.532523039E+01_EB,-0.194490600E-02_EB, 0.265748000E-05_EB,&
     -0.909684000E-09_EB,-0.244876000E-12_EB/)
THERMO_DATA(271)%B(1:2,1)  = (/ 0.164917057E+05_EB,-0.265356439E+01_EB/)
THERMO_DATA(271)%A(1:7,2)  = &
   (/ 0.192994076E+08_EB,-0.626928012E+05_EB, 0.826768211E+02_EB,-0.456513780E-01_EB, 0.125952000E-04_EB,&
     -0.156045000E-08_EB, 0.702468000E-13_EB/)
THERMO_DATA(271)%B(1:2,2)  = (/ 0.409082080E+06_EB,-0.550997089E+03_EB/)
THERMO_DATA(271)%H_F       =    142.339125_EB
THERMO_DATA(271)%SIGMA     =  4.156_EB ! R-132
THERMO_DATA(271)%EPSOK     =  1375.00_EB
THERMO_DATA(271)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(272)%FORMULA   = 'Na2O'
THERMO_DATA(272)%NAME      = 'DISODIUM OXIDE'
THERMO_DATA(272)%POLY      = 'NASA9'
THERMO_DATA(272)%BANDS     = 2
THERMO_DATA(272)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(272)%A(1:7,1)  = &
   (/ 0.390114929E+05_EB,-0.726620789E+03_EB, 0.962371078E+01_EB,-0.355641900E-02_EB, 0.347070000E-05_EB,&
     -0.183518000E-08_EB, 0.406213000E-12_EB/)
THERMO_DATA(272)%B(1:2,1)  = (/-0.459307325E+03_EB,-0.234956583E+02_EB/)
THERMO_DATA(272)%A(1:7,2)  = &
   (/-0.660052516E+05_EB,-0.256902163E+02_EB, 0.751938542E+01_EB,-0.781164000E-05_EB, 0.173502000E-08_EB,&
     -0.199663000E-12_EB, 0.927643000E-17_EB/)
THERMO_DATA(272)%B(1:2,2)  = (/-0.429733965E+04_EB,-0.106353021E+02_EB/)
THERMO_DATA(272)%H_F       =    -16.559830_EB
THERMO_DATA(272)%SIGMA     =  4.358_EB ! R-132
THERMO_DATA(272)%EPSOK     =  1827.00_EB
THERMO_DATA(272)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(273)%FORMULA   = 'Na2O'
THERMO_DATA(273)%NAME      = 'DISODIUM OXIDEp'
THERMO_DATA(273)%POLY      = 'NASA9'
THERMO_DATA(273)%BANDS     = 2
THERMO_DATA(273)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(273)%A(1:7,1)  = &
   (/ 0.264796976E+05_EB,-0.596906216E+03_EB, 0.929412953E+01_EB,-0.308070200E-02_EB, 0.308046000E-05_EB,&
     -0.166945000E-08_EB, 0.378978000E-12_EB/)
THERMO_DATA(273)%B(1:2,1)  = (/ 0.634731025E+05_EB,-0.202527446E+02_EB/)
THERMO_DATA(273)%A(1:7,2)  = &
   (/-0.574090933E+05_EB,-0.198917814E+02_EB, 0.751529526E+01_EB,-0.625833000E-05_EB, 0.140732000E-08_EB,&
     -0.163583000E-12_EB, 0.766245000E-17_EB/)
THERMO_DATA(273)%B(1:2,2)  = (/ 0.603297747E+05_EB,-0.942652674E+01_EB/)
THERMO_DATA(273)%H_F       =    520.833968_EB
THERMO_DATA(273)%SIGMA     =  4.358_EB ! R-132
THERMO_DATA(273)%EPSOK     =  1827.00_EB
THERMO_DATA(273)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(274)%FORMULA   = 'Na2O2'
THERMO_DATA(274)%NAME      = 'DISODIUM PEROXIDE'
THERMO_DATA(274)%POLY      = 'NASA9'
THERMO_DATA(274)%BANDS     = 2
THERMO_DATA(274)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(274)%A(1:7,1)  = &
   (/ 0.738245892E+05_EB,-0.135512534E+04_EB, 0.125557986E+02_EB,-0.211204600E-02_EB, 0.492035000E-07_EB,&
      0.100395000E-08_EB,-0.444773000E-12_EB/)
THERMO_DATA(274)%B(1:2,1)  = (/-0.105885892E+05_EB,-0.402181178E+02_EB/)
THERMO_DATA(274)%A(1:7,2)  = &
   (/-0.173229524E+06_EB,-0.113756112E+03_EB, 0.100852914E+02_EB,-0.342210000E-04_EB, 0.757772000E-08_EB,&
     -0.870126000E-12_EB, 0.403606000E-16_EB/)
THERMO_DATA(274)%B(1:2,2)  = (/-0.178030057E+05_EB,-0.238678919E+02_EB/)
THERMO_DATA(274)%H_F       =   -123.930345_EB
THERMO_DATA(274)%SIGMA     =  4.530_EB ! GRM3
THERMO_DATA(274)%EPSOK     =  1208.00_EB
THERMO_DATA(274)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(275)%FORMULA   = 'NaBr'
THERMO_DATA(275)%NAME      = 'SODIUM BROMIDE'
THERMO_DATA(275)%POLY      = 'NASA9'
THERMO_DATA(275)%BANDS     = 2
THERMO_DATA(275)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(275)%A(1:7,1)  = &
   (/-0.146682714E+05_EB, 0.762228287E+02_EB, 0.392116347E+01_EB, 0.179378100E-02_EB,-0.245739000E-05_EB,&
      0.173933000E-08_EB,-0.479670000E-12_EB/)
THERMO_DATA(275)%B(1:2,1)  = (/-0.192649175E+05_EB, 0.640438286E+01_EB/)
THERMO_DATA(275)%A(1:7,2)  = &
   (/ 0.897851302E+06_EB,-0.269789972E+04_EB, 0.754537716E+01_EB,-0.156669200E-02_EB, 0.447039000E-06_EB,&
     -0.483281000E-10_EB, 0.142396000E-14_EB/)
THERMO_DATA(275)%B(1:2,2)  = (/-0.175086225E+04_EB,-0.185647895E+02_EB/)
THERMO_DATA(275)%H_F       =   -145.928882_EB
THERMO_DATA(275)%SIGMA     =  4.226_EB ! R-132
THERMO_DATA(275)%EPSOK     =  1963.00_EB
THERMO_DATA(275)%PR        =  0.71_EB ! R-132
 
THERMO_DATA(276)%FORMULA   = 'NaCl'
THERMO_DATA(276)%NAME      = 'SODIUM CHLORIDE'
THERMO_DATA(276)%POLY      = 'NASA9'
THERMO_DATA(276)%BANDS     = 2
THERMO_DATA(276)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(276)%A(1:7,1)  = &
   (/ 0.436237835E+05_EB,-0.758303446E+03_EB, 0.825917300E+01_EB,-0.964091500E-02_EB, 0.135885000E-04_EB,&
     -0.966703000E-08_EB, 0.274626000E-11_EB/)
THERMO_DATA(276)%B(1:2,1)  = (/-0.195040948E+05_EB,-0.193668755E+02_EB/)
THERMO_DATA(276)%A(1:7,2)  = &
   (/ 0.331449876E+06_EB,-0.896831565E+03_EB, 0.527728738E+01_EB,-0.147567000E-03_EB,-0.149113000E-07_EB,&
      0.246567000E-10_EB,-0.273036000E-14_EB/)
THERMO_DATA(276)%B(1:2,2)  = (/-0.173627767E+05_EB,-0.399828856E+01_EB/)
THERMO_DATA(276)%H_F       =   -181.544884_EB
THERMO_DATA(276)%SIGMA     =  4.186_EB ! R-132
THERMO_DATA(276)%EPSOK     =  1898.00_EB
THERMO_DATA(276)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(277)%FORMULA   = 'NaCN'
THERMO_DATA(277)%NAME      = 'SODIUM CYANIDE'
THERMO_DATA(277)%POLY      = 'NASA9'
THERMO_DATA(277)%BANDS     = 2
THERMO_DATA(277)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(277)%A(1:7,1)  = &
   (/ 0.244616541E+05_EB,-0.753601997E+03_EB, 0.104496624E+02_EB,-0.116876910E-01_EB, 0.184928000E-04_EB,&
     -0.131939000E-07_EB, 0.358977000E-11_EB/)
THERMO_DATA(277)%B(1:2,1)  = (/ 0.129782049E+05_EB,-0.298851968E+02_EB/)
THERMO_DATA(277)%A(1:7,2)  = &
   (/ 0.366557029E+06_EB,-0.178209436E+04_EB, 0.869962263E+01_EB,-0.446330000E-03_EB, 0.936223000E-07_EB,&
     -0.103307000E-10_EB, 0.465047000E-15_EB/)
THERMO_DATA(277)%B(1:2,2)  = (/ 0.201092635E+05_EB,-0.241927609E+02_EB/)
THERMO_DATA(277)%H_F       =     94.266000_EB
THERMO_DATA(277)%SIGMA     =  4.395_EB ! R-132
THERMO_DATA(277)%EPSOK     =  2088.00_EB
THERMO_DATA(277)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(278)%FORMULA   = 'NaF'
THERMO_DATA(278)%NAME      = 'SODIUM FLUORIDE'
THERMO_DATA(278)%POLY      = 'NASA9'
THERMO_DATA(278)%BANDS     = 2
THERMO_DATA(278)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(278)%A(1:7,1)  = &
   (/ 0.395988744E+05_EB,-0.653462607E+03_EB, 0.694117320E+01_EB,-0.530781500E-02_EB, 0.697972000E-05_EB,&
     -0.482043000E-08_EB, 0.136485000E-11_EB/)
THERMO_DATA(278)%B(1:2,1)  = (/-0.335294089E+05_EB,-0.140321223E+02_EB/)
THERMO_DATA(278)%A(1:7,2)  = &
   (/-0.109292691E+07_EB, 0.329330364E+04_EB, 0.413591984E+00_EB, 0.263499400E-02_EB,-0.838430000E-06_EB,&
      0.141705000E-09_EB,-0.860027000E-14_EB/)
THERMO_DATA(278)%B(1:2,2)  = (/-0.577288463E+05_EB, 0.290948991E+02_EB/)
THERMO_DATA(278)%H_F       =   -295.156889_EB
THERMO_DATA(278)%SIGMA     =  3.756_EB ! R-132
THERMO_DATA(278)%EPSOK     =  2333.00_EB
THERMO_DATA(278)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(279)%FORMULA   = 'NaH'
THERMO_DATA(279)%NAME      = 'SODIUM HYDRIDE'
THERMO_DATA(279)%POLY      = 'NASA9'
THERMO_DATA(279)%BANDS     = 2
THERMO_DATA(279)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(279)%A(1:7,1)  = &
   (/-0.322220641E+05_EB, 0.623762201E+03_EB,-0.921627751E+00_EB, 0.136076590E-01_EB,-0.165925000E-04_EB,&
      0.103328000E-07_EB,-0.258973000E-11_EB/)
THERMO_DATA(279)%B(1:2,1)  = (/ 0.130738165E+05_EB, 0.264141860E+02_EB/)
THERMO_DATA(279)%A(1:7,2)  = &
   (/-0.475618475E+07_EB, 0.145204763E+05_EB,-0.132756348E+02_EB, 0.105582830E-01_EB,-0.299004000E-05_EB,&
      0.390532000E-09_EB,-0.192393000E-13_EB/)
THERMO_DATA(279)%B(1:2,2)  = (/-0.763292227E+05_EB, 0.122207006E+03_EB/)
THERMO_DATA(279)%H_F       =    140.835105_EB
THERMO_DATA(279)%SIGMA     =  3.542_EB ! R-132
THERMO_DATA(279)%EPSOK     =    93.30_EB
THERMO_DATA(279)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(280)%FORMULA   = 'NaHCO3'
THERMO_DATA(280)%NAME      = 'SODIUM BICARBONATE'
THERMO_DATA(280)%POLY      = 'NASA7'
THERMO_DATA(280)%BANDS     = 2
THERMO_DATA(280)%T(1:3)    = (/ 0.298150000E+03_EB, 0.120000000E+04_EB, 0.300000000E+04_EB/)
THERMO_DATA(280)%A(1:5,1)  = &
   (/ 0.183188080E+02_EB,-0.799211950E-01_EB, 0.253742450E-03_EB,-0.266984930E-06_EB, 0.902750140E-10_EB/)
THERMO_DATA(280)%B(1:2,1)  = (/-0.116397480E+06_EB,-0.774427060E+02_EB/)
THERMO_DATA(280)%A(1:5,2)  = &
   (/ 0.148949970E+02_EB,-0.202647730E-02_EB, 0.108163770E-05_EB,-0.238745770E-09_EB, 0.186074610E-13_EB/)
THERMO_DATA(280)%B(1:2,2)  = (/-0.116204330E+06_EB,-0.715823850E+02_EB/)
THERMO_DATA(280)%H_F       = -937.3000876_EB
THERMO_DATA(280)%SIGMA     =  4.530_EB ! GRM3
THERMO_DATA(280)%EPSOK     =  1257.00_EB
THERMO_DATA(280)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(281)%FORMULA   = 'NaI'
THERMO_DATA(281)%NAME      = 'SODIUM IODIDE'
THERMO_DATA(281)%POLY      = 'NASA9'
THERMO_DATA(281)%BANDS     = 2
THERMO_DATA(281)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(281)%A(1:7,1)  = &
   (/ 0.122886851E+05_EB,-0.285719280E+03_EB, 0.596105700E+01_EB,-0.379253300E-02_EB, 0.556688000E-05_EB,&
     -0.404501000E-08_EB, 0.117300000E-11_EB/)
THERMO_DATA(281)%B(1:2,1)  = (/-0.108825056E+05_EB,-0.399073992E+01_EB/)
THERMO_DATA(281)%A(1:7,2)  = &
   (/ 0.228154941E+07_EB,-0.709315663E+04_EB, 0.130499497E+02_EB,-0.501349200E-02_EB, 0.158174000E-05_EB,&
     -0.228584000E-09_EB, 0.119589000E-13_EB/)
THERMO_DATA(281)%B(1:2,2)  = (/ 0.325389362E+05_EB,-0.564002332E+02_EB/)
THERMO_DATA(281)%H_F       =    -90.637880_EB
THERMO_DATA(281)%SIGMA     =  4.658_EB ! R-132
THERMO_DATA(281)%EPSOK     =  1856.00_EB
THERMO_DATA(281)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(282)%FORMULA   = 'NaO'
THERMO_DATA(282)%NAME      = 'SODIUM OXIDE'
THERMO_DATA(282)%POLY      = 'NASA9'
THERMO_DATA(282)%BANDS     = 2
THERMO_DATA(282)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(282)%A(1:7,1)  = &
   (/ 0.185774801E+05_EB,-0.337149732E+03_EB, 0.564456002E+01_EB,-0.313692600E-02_EB, 0.633078000E-05_EB,&
     -0.542946000E-08_EB, 0.168718000E-11_EB/)
THERMO_DATA(282)%B(1:2,1)  = (/ 0.132033268E+05_EB,-0.499613115E+01_EB/)
THERMO_DATA(282)%A(1:7,2)  = &
   (/ 0.256974401E+06_EB,-0.226933416E+04_EB, 0.922439762E+01_EB,-0.365126900E-02_EB, 0.144681000E-05_EB,&
     -0.244307000E-09_EB, 0.142851000E-13_EB/)
THERMO_DATA(282)%B(1:2,2)  = (/ 0.241323936E+05_EB,-0.298915949E+02_EB/)
THERMO_DATA(282)%H_F       =    106.505317_EB
THERMO_DATA(282)%SIGMA     =  3.812_EB ! R-132
THERMO_DATA(282)%EPSOK     =   383.00_EB
THERMO_DATA(282)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(283)%FORMULA   = 'NaO2'
THERMO_DATA(283)%NAME      = 'SODIUM SUPEROXIDE'
THERMO_DATA(283)%POLY      = 'NASA7'
THERMO_DATA(283)%BANDS     = 2
THERMO_DATA(283)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.300000000E+04_EB/)
THERMO_DATA(283)%A(1:5,1)  = &
   (/ 0.335814150E+01_EB, 0.442245450E-02_EB,-0.662217250E-05_EB, 0.554043390E-08_EB,-0.191737870E-11_EB/)
THERMO_DATA(283)%B(1:2,1)  = (/ 0.116615680E+05_EB, 0.728305060E+01_EB/)
THERMO_DATA(283)%A(1:5,2)  = &
   (/ 0.462282880E+01_EB, 0.221323760E-03_EB,-0.102775120E-06_EB, 0.462822010E-10_EB,-0.618092630E-14_EB/)
THERMO_DATA(283)%B(1:2,2)  = (/ 0.113156120E+05_EB, 0.841916720E+00_EB/)
THERMO_DATA(283)%H_F       =   106.5158645_EB
THERMO_DATA(283)%SIGMA     =  3.812_EB ! GRM3
THERMO_DATA(283)%EPSOK     =   383.00_EB
THERMO_DATA(283)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(284)%FORMULA   = 'NaOH'
THERMO_DATA(284)%NAME      = 'SODIUM HYDROXIDE'
THERMO_DATA(284)%POLY      = 'NASA9'
THERMO_DATA(284)%BANDS     = 2
THERMO_DATA(284)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(284)%A(1:7,1)  = &
   (/ 0.344203674E+05_EB,-0.792321818E+03_EB, 0.899793230E+01_EB,-0.407984500E-02_EB, 0.306578000E-05_EB,&
     -0.511919000E-09_EB,-0.154102000E-12_EB/)
THERMO_DATA(284)%B(1:2,1)  = (/-0.208695109E+05_EB,-0.251059009E+02_EB/)
THERMO_DATA(284)%A(1:7,2)  = &
   (/ 0.875378776E+06_EB,-0.234251465E+04_EB, 0.797846989E+01_EB, 0.101645000E-03_EB,-0.626853000E-07_EB,&
      0.102272000E-10_EB,-0.571329000E-15_EB/)
THERMO_DATA(284)%B(1:2,2)  = (/-0.950990171E+04_EB,-0.220231040E+02_EB/)
THERMO_DATA(284)%H_F       =   -191.000000_EB
THERMO_DATA(284)%SIGMA     =  3.804_EB ! R-132
THERMO_DATA(284)%EPSOK     =  1962.00_EB
THERMO_DATA(284)%PR        =  0.71_EB ! R-132
 
THERMO_DATA(285)%FORMULA   = 'NaOH'
THERMO_DATA(285)%NAME      = 'SODIUM HYDROXIDEp'
THERMO_DATA(285)%POLY      = 'NASA9'
THERMO_DATA(285)%BANDS     = 3
THERMO_DATA(285)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(285)%A(1:7,1)  = &
   (/ 0.227803936E+05_EB,-0.667219422E+03_EB, 0.892159312E+01_EB,-0.448126300E-02_EB, 0.395188000E-05_EB,&
     -0.117334000E-08_EB, 0.204181000E-13_EB/)
THERMO_DATA(285)%B(1:2,1)  = (/ 0.836338219E+05_EB,-0.225891226E+02_EB/)
THERMO_DATA(285)%A(1:7,2)  = &
   (/ 0.881541365E+06_EB,-0.236315976E+04_EB, 0.805320393E+01_EB, 0.727128000E-04_EB,-0.589742000E-07_EB,&
      0.100749000E-10_EB,-0.547441000E-15_EB/)
THERMO_DATA(285)%B(1:2,2)  = (/ 0.958444165E+05_EB,-0.207948401E+02_EB/)
THERMO_DATA(285)%A(1:7,3)  = &
   (/-0.283932654E+08_EB, 0.177833829E+05_EB, 0.282104761E+01_EB, 0.579375000E-03_EB,-0.332879000E-07_EB,&
      0.942125000E-12_EB,-0.107232000E-16_EB/)
THERMO_DATA(285)%B(1:2,3)  = (/-0.617519427E+05_EB, 0.246548803E+02_EB/)
THERMO_DATA(285)%H_F       =    683.862371_EB
THERMO_DATA(285)%SIGMA     =  3.804_EB ! R-132
THERMO_DATA(285)%EPSOK     =  1962.00_EB
THERMO_DATA(285)%PR        =  0.71_EB ! R-132
 
THERMO_DATA(286)%FORMULA   = 'NCO'
THERMO_DATA(286)%NAME      = 'ISOCYANATO RADICAL'
THERMO_DATA(286)%POLY      = 'NASA9'
THERMO_DATA(286)%BANDS     = 2
THERMO_DATA(286)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(286)%A(1:7,1)  = &
   (/ 0.113650304E+05_EB,-0.244461337E+03_EB, 0.467137610E+01_EB, 0.230938800E-02_EB, 0.279865000E-05_EB,&
     -0.454636000E-08_EB, 0.169288000E-11_EB/)
THERMO_DATA(286)%B(1:2,1)  = (/ 0.157764919E+05_EB,-0.217147690E+00_EB/)
THERMO_DATA(286)%A(1:7,2)  = &
   (/ 0.108944529E+06_EB,-0.173545932E+04_EB, 0.865561033E+01_EB,-0.405323000E-03_EB, 0.759972000E-07_EB,&
     -0.725380000E-11_EB, 0.324487000E-15_EB/)
THERMO_DATA(286)%B(1:2,2)  = (/ 0.236579278E+05_EB,-0.261953297E+02_EB/)
THERMO_DATA(286)%H_F       =    131.847241_EB
THERMO_DATA(286)%SIGMA     =  3.828_EB ! GRM3
THERMO_DATA(286)%EPSOK     =   232.40_EB
THERMO_DATA(286)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(287)%FORMULA   = 'Ne'
THERMO_DATA(287)%NAME      = 'NEON'
THERMO_DATA(287)%POLY      = 'NASA9'
THERMO_DATA(287)%BANDS     = 3
THERMO_DATA(287)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(287)%A(1:7,1)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(287)%B(1:2,1)  = (/-0.745375000E+03_EB, 0.335532272E+01_EB/)
THERMO_DATA(287)%A(1:7,2)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(287)%B(1:2,2)  = (/-0.745375000E+03_EB, 0.335532272E+01_EB/)
THERMO_DATA(287)%A(1:7,3)  = &
   (/-0.123825275E+08_EB, 0.695857958E+04_EB, 0.101670929E+01_EB, 0.142466000E-03_EB,-0.480393000E-08_EB,&
     -0.117021000E-12_EB, 0.841515000E-17_EB/)
THERMO_DATA(287)%B(1:2,3)  = (/-0.566393363E+05_EB, 0.164843870E+02_EB/)
THERMO_DATA(287)%H_F       =      0.000000_EB
THERMO_DATA(287)%SIGMA     =  2.820_EB ! R-132
THERMO_DATA(287)%EPSOK     =    32.80_EB
THERMO_DATA(287)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(288)%FORMULA   = 'Ne'
THERMO_DATA(288)%NAME      = 'NEONp'
THERMO_DATA(288)%POLY      = 'NASA9'
THERMO_DATA(288)%BANDS     = 3
THERMO_DATA(288)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(288)%A(1:7,1)  = &
   (/ 0.728155148E+05_EB,-0.869569799E+03_EB, 0.610864697E+01_EB,-0.584135700E-02_EB, 0.504104000E-05_EB,&
     -0.229376000E-08_EB, 0.433907000E-12_EB/)
THERMO_DATA(288)%B(1:2,1)  = (/ 0.254599689E+06_EB,-0.167344935E+02_EB/)
THERMO_DATA(288)%A(1:7,2)  = &
   (/-0.111274266E+06_EB, 0.476569797E+03_EB, 0.219665053E+01_EB, 0.110259000E-03_EB,-0.228756000E-07_EB,&
      0.251022000E-11_EB,-0.112665000E-15_EB/)
THERMO_DATA(288)%B(1:2,2)  = (/ 0.247253694E+06_EB, 0.746614054E+01_EB/)
THERMO_DATA(288)%A(1:7,3)  = &
   (/-0.561547411E+05_EB, 0.141898016E+03_EB, 0.247571684E+01_EB, 0.194443000E-05_EB,-0.632310000E-10_EB,&
     -0.131331000E-15_EB, 0.353470000E-19_EB/)
THERMO_DATA(288)%B(1:2,3)  = (/ 0.249445222E+06_EB, 0.536688222E+01_EB/)
THERMO_DATA(288)%H_F       =   2086.965950_EB
THERMO_DATA(288)%SIGMA     =  2.820_EB ! R-132
THERMO_DATA(288)%EPSOK     =    32.80_EB
THERMO_DATA(288)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(289)%FORMULA   = 'NF3'
THERMO_DATA(289)%NAME      = 'NITROGEN TRIFLUORIDE'
THERMO_DATA(289)%POLY      = 'NASA9'
THERMO_DATA(289)%BANDS     = 2
THERMO_DATA(289)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(289)%A(1:7,1)  = &
   (/ 0.875714928E+05_EB,-0.903183289E+03_EB, 0.402741727E+01_EB, 0.231443960E-01_EB,-0.341511000E-04_EB,&
      0.240948000E-07_EB,-0.663346000E-11_EB/)
THERMO_DATA(289)%B(1:2,1)  = (/-0.123723207E+05_EB, 0.302643071E+00_EB/)
THERMO_DATA(289)%A(1:7,2)  = &
   (/-0.349626876E+06_EB,-0.497372867E+03_EB, 0.103686613E+02_EB, 0.890069000E-04_EB, 0.588265000E-07_EB,&
     -0.315774000E-11_EB, 0.171433000E-15_EB/)
THERMO_DATA(289)%B(1:2,2)  = (/-0.171318335E+05_EB,-0.309892086E+02_EB/)
THERMO_DATA(289)%H_F       =   -131.700000_EB
THERMO_DATA(289)%SIGMA     =  4.154_EB ! R-132
THERMO_DATA(289)%EPSOK     =   175.00_EB
THERMO_DATA(289)%PR        =  0.72_EB ! R-132
 
THERMO_DATA(290)%FORMULA   = 'NH'
THERMO_DATA(290)%NAME      = 'IMIDOGEN'
THERMO_DATA(290)%POLY      = 'NASA9'
THERMO_DATA(290)%BANDS     = 3
THERMO_DATA(290)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(290)%A(1:7,1)  = &
   (/ 0.135965132E+05_EB,-0.190029660E+03_EB, 0.451849679E+01_EB,-0.243277700E-02_EB, 0.237759000E-05_EB,&
     -0.259280000E-09_EB,-0.265968000E-12_EB/)
THERMO_DATA(290)%B(1:2,1)  = (/ 0.428097219E+05_EB,-0.388656162E+01_EB/)
THERMO_DATA(290)%A(1:7,2)  = &
   (/ 0.195814199E+07_EB,-0.578286130E+04_EB, 0.933574202E+01_EB,-0.229291000E-02_EB, 0.607609000E-06_EB,&
     -0.664794000E-10_EB, 0.238423000E-14_EB/)
THERMO_DATA(290)%B(1:2,2)  = (/ 0.789891234E+05_EB,-0.411697040E+02_EB/)
THERMO_DATA(290)%A(1:7,3)  = &
   (/ 0.952463679E+08_EB,-0.858582691E+05_EB, 0.298044518E+02_EB,-0.297956400E-02_EB, 0.165633000E-06_EB,&
     -0.474479000E-11_EB, 0.557015000E-16_EB/)
THERMO_DATA(290)%B(1:2,3)  = (/ 0.696143427E+06_EB,-0.222902742E+03_EB/)
THERMO_DATA(290)%H_F       =    357.032001_EB
THERMO_DATA(290)%SIGMA     =  3.312_EB ! R-132
THERMO_DATA(290)%EPSOK     =    65.30_EB
THERMO_DATA(290)%PR        =  0.69_EB ! R-132
 
THERMO_DATA(291)%FORMULA   = 'NH'
THERMO_DATA(291)%NAME      = 'IMIDOGENp'
THERMO_DATA(291)%POLY      = 'NASA9'
THERMO_DATA(291)%BANDS     = 3
THERMO_DATA(291)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(291)%A(1:7,1)  = &
   (/ 0.425365685E+04_EB,-0.245822221E+03_EB, 0.670891949E+01_EB,-0.103848940E-01_EB, 0.150901000E-04_EB,&
     -0.958051000E-08_EB, 0.233321000E-11_EB/)
THERMO_DATA(291)%B(1:2,1)  = (/ 0.200107780E+06_EB,-0.139505763E+02_EB/)
THERMO_DATA(291)%A(1:7,2)  = &
   (/ 0.140570944E+07_EB,-0.413621571E+04_EB, 0.763201448E+01_EB,-0.122832600E-02_EB, 0.272119000E-06_EB,&
     -0.201010000E-10_EB, 0.371719000E-16_EB/)
THERMO_DATA(291)%B(1:2,2)  = (/ 0.225897596E+06_EB,-0.278678523E+02_EB/)
THERMO_DATA(291)%A(1:7,3)  = &
   (/ 0.239294176E+09_EB,-0.174165862E+06_EB, 0.510790791E+02_EB,-0.556762400E-02_EB, 0.327339000E-06_EB,&
     -0.979798000E-11_EB, 0.118654000E-15_EB/)
THERMO_DATA(291)%B(1:2,3)  = (/ 0.155470530E+07_EB,-0.406596896E+03_EB/)
THERMO_DATA(291)%H_F       =   1665.787910_EB
THERMO_DATA(291)%SIGMA     =  3.312_EB ! R-132
THERMO_DATA(291)%EPSOK     =    65.30_EB
THERMO_DATA(291)%PR        =  0.69_EB ! R-132
 
THERMO_DATA(292)%FORMULA   = 'NH2'
THERMO_DATA(292)%NAME      = 'DINOTROGEN MONOHYDRIDE'
THERMO_DATA(292)%POLY      = 'NASA9'
THERMO_DATA(292)%BANDS     = 2
THERMO_DATA(292)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(292)%A(1:7,1)  = &
   (/-0.311824066E+05_EB, 0.475424339E+03_EB, 0.137239518E+01_EB, 0.630643000E-02_EB,-0.598789000E-05_EB,&
      0.449275000E-08_EB,-0.141407000E-11_EB/)
THERMO_DATA(292)%B(1:2,1)  = (/ 0.192893966E+05_EB, 0.154012688E+02_EB/)
THERMO_DATA(292)%A(1:7,2)  = &
   (/ 0.211105374E+07_EB,-0.688062723E+04_EB, 0.113230592E+02_EB,-0.182923700E-02_EB, 0.564389000E-06_EB,&
     -0.788645000E-10_EB, 0.407859000E-14_EB/)
THERMO_DATA(292)%B(1:2,2)  = (/ 0.650377856E+05_EB,-0.535915574E+02_EB/)
THERMO_DATA(292)%H_F       =    189.134713_EB
THERMO_DATA(292)%SIGMA     =  2.650_EB ! GRM3
THERMO_DATA(292)%EPSOK     =    80.00_EB
THERMO_DATA(292)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(293)%FORMULA   = 'NH3'
THERMO_DATA(293)%NAME      = 'AMMONIA'
THERMO_DATA(293)%POLY      = 'NASA9'
THERMO_DATA(293)%BANDS     = 2
THERMO_DATA(293)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(293)%A(1:7,1)  = &
   (/-0.768122615E+05_EB, 0.127095158E+04_EB,-0.389322913E+01_EB, 0.214598840E-01_EB,-0.218377000E-04_EB,&
      0.131739000E-07_EB,-0.333232000E-11_EB/)
THERMO_DATA(293)%B(1:2,1)  = (/-0.126488641E+05_EB, 0.436601459E+02_EB/)
THERMO_DATA(293)%A(1:7,2)  = &
   (/ 0.245238954E+07_EB,-0.804089424E+04_EB, 0.127134620E+02_EB,-0.398019000E-03_EB, 0.355250000E-07_EB,&
      0.253092000E-11_EB,-0.332270000E-15_EB/)
THERMO_DATA(293)%B(1:2,2)  = (/ 0.438619196E+05_EB,-0.646233060E+02_EB/)
THERMO_DATA(293)%H_F       =    -45.940000_EB
THERMO_DATA(293)%SIGMA     =  2.900_EB ! R-132
THERMO_DATA(293)%EPSOK     =   558.30_EB
THERMO_DATA(293)%PR        =  0.87_EB ! Bergman
THERMO_DATA(293)%LIQUID    = .TRUE.
THERMO_DATA(293)%T_L(1:2)  = (/200._EB,298.15_EB/)
THERMO_DATA(293)%A_L(3:5,1)= (/4903.55_EB,- 8.6568_EB,0.0286941_EB/)
THERMO_DATA(293)%H_V       = 1374003.847211_EB !J/kg
THERMO_DATA(293)%T_REF     = 239.8_EB !K
THERMO_DATA(293)%T_MELT    = 194.95_EB !K
THERMO_DATA(293)%T_BOIL    = 239.8_EB !K
THERMO_DATA(293)%DENSITY   = 730._EB !kg/m^3
THERMO_DATA(293)%MU        = 138E-6_EB  !N.s/m^2
THERMO_DATA(293)%K         = 0.521_EB !W/m/K
THERMO_DATA(293)%BETA      = 0.00250_EB !1/K
 
THERMO_DATA(294)%FORMULA   = 'NNH'
THERMO_DATA(294)%NAME      = 'NNH'
THERMO_DATA(294)%POLY      = 'NASA7'
THERMO_DATA(294)%BANDS     = 2
THERMO_DATA(294)%T(1:3)    = (/ 0.250000000E+03_EB, 0.100000000E+04_EB, 0.400000000E+04_EB/)
THERMO_DATA(294)%A(1:5,1)  = &
   (/ 0.350134400E+01_EB, 0.205358700E-02_EB, 0.717041000E-06_EB, 0.492134800E-09_EB,-0.967117000E-12_EB/)
THERMO_DATA(294)%B(1:2,1)  = (/ 0.283334700E+05_EB, 0.639183700E+01_EB/)
THERMO_DATA(294)%A(1:5,2)  = &
   (/ 0.441534200E+01_EB, 0.161438800E-02_EB,-0.163289400E-06_EB,-0.855984600E-10_EB, 0.161479100E-13_EB/)
THERMO_DATA(294)%B(1:2,2)  = (/ 0.278802900E+05_EB, 0.904288800E+00_EB/)
THERMO_DATA(294)%H_F       =   245.0734034_EB
THERMO_DATA(294)%SIGMA     =  3.798_EB ! GRM3
THERMO_DATA(294)%EPSOK     =    71.40_EB
THERMO_DATA(294)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(295)%FORMULA   = 'NO'
THERMO_DATA(295)%NAME      = 'NITRIC OXIDE'
THERMO_DATA(295)%POLY      = 'NASA9'
THERMO_DATA(295)%BANDS     = 3
THERMO_DATA(295)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(295)%A(1:7,1)  = &
   (/-0.114391650E+05_EB, 0.153646759E+03_EB, 0.343146873E+01_EB,-0.266859200E-02_EB, 0.848140000E-05_EB,&
     -0.768511000E-08_EB, 0.238680000E-11_EB/)
THERMO_DATA(295)%B(1:2,1)  = (/ 0.909821441E+04_EB, 0.672872549E+01_EB/)
THERMO_DATA(295)%A(1:7,2)  = &
   (/ 0.223901872E+06_EB,-0.128965162E+04_EB, 0.543393603E+01_EB,-0.365603000E-03_EB, 0.988097000E-07_EB,&
     -0.141608000E-10_EB, 0.938018000E-15_EB/)
THERMO_DATA(295)%B(1:2,2)  = (/ 0.175031766E+05_EB,-0.850166909E+01_EB/)
THERMO_DATA(295)%A(1:7,3)  = &
   (/-0.957530354E+09_EB, 0.591243448E+06_EB,-0.138456683E+03_EB, 0.169433940E-01_EB,-0.100735000E-05_EB,&
      0.291258000E-10_EB,-0.329511000E-15_EB/)
THERMO_DATA(295)%B(1:2,3)  = (/-0.467750124E+07_EB, 0.124208122E+04_EB/)
THERMO_DATA(295)%H_F       =     91.271310_EB
THERMO_DATA(295)%SIGMA     =  3.492_EB ! R-132
THERMO_DATA(295)%EPSOK     =   116.70_EB
THERMO_DATA(295)%PR        =  0.74_EB ! JPCRD (19)5
THERMO_DATA(295)%LIQUID    = .TRUE.
THERMO_DATA(295)%T(1:2)    = (/110._EB,122._EB/)
THERMO_DATA(295)%A_L(3:4,1)= (/ -3926.9_EB,54.38_EB/)
THERMO_DATA(295)%H_V = 460000._EB !J/kg
THERMO_DATA(295)%T_REF = 110._EB !K
THERMO_DATA(295)%T_MELT = 110._EB !K
THERMO_DATA(295)%T_BOIL = 122._EB !K
THERMO_DATA(295)%DENSITY = 1270._EB !kg/m^3

THERMO_DATA(296)%FORMULA   = 'NO'
THERMO_DATA(296)%NAME      = 'NITRIC OXIDEp'
THERMO_DATA(296)%POLY      = 'NASA9'
THERMO_DATA(296)%BANDS     = 3
THERMO_DATA(296)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(296)%A(1:7,1)  = &
   (/ 0.139810664E+04_EB,-0.159044694E+03_EB, 0.512289540E+01_EB,-0.639438900E-02_EB, 0.112392000E-04_EB,&
     -0.798858000E-08_EB, 0.210738000E-11_EB/)
THERMO_DATA(296)%B(1:2,1)  = (/ 0.118749513E+06_EB,-0.439843381E+01_EB/)
THERMO_DATA(296)%A(1:7,2)  = &
   (/ 0.606987690E+06_EB,-0.227839543E+04_EB, 0.608032467E+01_EB,-0.606685000E-03_EB, 0.143200000E-06_EB,&
     -0.174799000E-10_EB, 0.893501000E-15_EB/)
THERMO_DATA(296)%B(1:2,2)  = (/ 0.132270962E+06_EB,-0.151988004E+02_EB/)
THERMO_DATA(296)%A(1:7,3)  = &
   (/ 0.267640035E+10_EB,-0.183294869E+07_EB, 0.509924939E+03_EB,-0.711381930E-01_EB, 0.531766000E-05_EB,&
     -0.196321000E-09_EB, 0.280527000E-14_EB/)
THERMO_DATA(296)%B(1:2,3)  = (/ 0.144330894E+08_EB,-0.432404446E+04_EB/)
THERMO_DATA(296)%H_F       =    990.809704_EB
THERMO_DATA(296)%SIGMA     =  3.492_EB ! R-132
THERMO_DATA(296)%EPSOK     =   116.70_EB
THERMO_DATA(296)%PR        =  0.74_EB ! JPCRD (19)5
 
THERMO_DATA(297)%FORMULA   = 'NO2'
THERMO_DATA(297)%NAME      = 'NITROGEN DIOXIDE'
THERMO_DATA(297)%POLY      = 'NASA9'
THERMO_DATA(297)%BANDS     = 2
THERMO_DATA(297)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(297)%A(1:7,1)  = &
   (/-0.564203878E+05_EB, 0.963308572E+03_EB,-0.243451097E+01_EB, 0.192776090E-01_EB,-0.187456000E-04_EB,&
      0.914550000E-08_EB,-0.177765000E-11_EB/)
THERMO_DATA(297)%B(1:2,1)  = (/-0.154792504E+04_EB, 0.406785121E+02_EB/)
THERMO_DATA(297)%A(1:7,2)  = &
   (/ 0.721300157E+06_EB,-0.383261520E+04_EB, 0.111396328E+02_EB,-0.223806200E-02_EB, 0.654772000E-06_EB,&
     -0.761134000E-10_EB, 0.332836000E-14_EB/)
THERMO_DATA(297)%B(1:2,2)  = (/ 0.250249740E+05_EB,-0.430513004E+02_EB/)
THERMO_DATA(297)%H_F       =     34.193019_EB
THERMO_DATA(297)%SIGMA     =  3.922_EB ! Paul, P. DRFM, SAND98-8203
THERMO_DATA(297)%EPSOK     =   204.88_EB
THERMO_DATA(297)%PR        =  6.10_EB ! Martinez
THERMO_DATA(297)%LIQUID    = .TRUE.
THERMO_DATA(297)%T(1:2)    = (/290.0_EB,340._EB/)
THERMO_DATA(297)%A_L(3:5,1)= (/3.13744E+03_EB,-1.12464E+01_EB,3.16667E-02_EB/)
THERMO_DATA(297)%H_V = 517409.8052_EB !J/kg
THERMO_DATA(297)%T_REF = 262._EB !K
THERMO_DATA(297)%T_MELT = 262._EB !K
THERMO_DATA(297)%T_BOIL = 294.15_EB !K
THERMO_DATA(297)%DENSITY = 1448._EB !kg/m^3
THERMO_DATA(297)%K = 0.121_EB !W/m/K
THERMO_DATA(297)%MU = 0.042 !N.s/m^2

THERMO_DATA(298)%FORMULA   = 'NO2'
THERMO_DATA(298)%NAME      = 'NITROGEN DIOXIDEm'
THERMO_DATA(298)%POLY      = 'NASA9'
THERMO_DATA(298)%BANDS     = 2
THERMO_DATA(298)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(298)%A(1:7,1)  = &
   (/-0.128206786E+05_EB, 0.699013818E+03_EB,-0.281259627E+01_EB, 0.241289430E-01_EB,-0.283161000E-04_EB,&
      0.167051000E-07_EB,-0.398333000E-11_EB/)
THERMO_DATA(298)%B(1:2,1)  = (/-0.280991558E+05_EB, 0.406327151E+02_EB/)
THERMO_DATA(298)%A(1:7,2)  = &
   (/ 0.132571033E+06_EB,-0.155703213E+04_EB, 0.812672192E+01_EB,-0.272863000E-03_EB,-0.470754000E-07_EB,&
      0.282673000E-10_EB,-0.235399000E-14_EB/)
THERMO_DATA(298)%B(1:2,2)  = (/-0.171579522E+05_EB,-0.222857604E+02_EB/)
THERMO_DATA(298)%H_F       =   -200.035591_EB
THERMO_DATA(298)%SIGMA     =  3.922_EB ! Paul, P. DRFM, SAND98-8203
THERMO_DATA(298)%EPSOK     =   204.88_EB
THERMO_DATA(298)%PR        =  6.10_EB ! Martinez
 
THERMO_DATA(299)%FORMULA   = 'NO3'
THERMO_DATA(299)%NAME      = 'NITRATE RADICAL'
THERMO_DATA(299)%POLY      = 'NASA9'
THERMO_DATA(299)%BANDS     = 2
THERMO_DATA(299)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(299)%A(1:7,1)  = &
   (/ 0.340539841E+05_EB, 0.226667065E+03_EB,-0.379308163E+01_EB, 0.417073270E-01_EB,-0.570991000E-04_EB,&
      0.383416000E-07_EB,-0.102197000E-10_EB/)
THERMO_DATA(299)%B(1:2,1)  = (/ 0.708811220E+04_EB, 0.427309171E+02_EB/)
THERMO_DATA(299)%A(1:7,2)  = &
   (/-0.394387271E+06_EB,-0.824426353E+03_EB, 0.106132584E+02_EB,-0.244875000E-03_EB, 0.540606000E-07_EB,&
     -0.619547000E-11_EB, 0.287000000E-15_EB/)
THERMO_DATA(299)%B(1:2,2)  = (/ 0.898201173E+04_EB,-0.344466660E+02_EB/)
THERMO_DATA(299)%H_F       =     71.128000_EB
THERMO_DATA(299)%SIGMA     =  4.175_EB ! GRM3
THERMO_DATA(299)%EPSOK     =   378.40_EB
THERMO_DATA(299)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(300)%FORMULA   = 'NO3'
THERMO_DATA(300)%NAME      = 'NITRATE RADICALm'
THERMO_DATA(300)%POLY      = 'NASA9'
THERMO_DATA(300)%BANDS     = 2
THERMO_DATA(300)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(300)%A(1:7,1)  = &
   (/ 0.920481361E+05_EB,-0.391117115E+03_EB,-0.235435676E+00_EB, 0.283604210E-01_EB,-0.346132000E-04_EB,&
      0.208179000E-07_EB,-0.502160000E-11_EB/)
THERMO_DATA(300)%B(1:2,1)  = (/-0.357641150E+05_EB, 0.229994231E+02_EB/)
THERMO_DATA(300)%A(1:7,2)  = &
   (/-0.311000576E+06_EB,-0.136908755E+04_EB, 0.110134291E+02_EB,-0.403688000E-03_EB, 0.890209000E-07_EB,&
     -0.101973000E-10_EB, 0.472333000E-15_EB/)
THERMO_DATA(300)%B(1:2,2)  = (/-0.336432109E+05_EB,-0.387843266E+02_EB/)
THERMO_DATA(300)%H_F       =   -310.779531_EB
THERMO_DATA(300)%SIGMA     =  4.175_EB ! GRM3
THERMO_DATA(300)%EPSOK     =   378.40_EB
THERMO_DATA(300)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(301)%FORMULA   = 'NOCl'
THERMO_DATA(301)%NAME      = 'NITROSYL CHLORIDE'
THERMO_DATA(301)%POLY      = 'NASA9'
THERMO_DATA(301)%BANDS     = 2
THERMO_DATA(301)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(301)%A(1:7,1)  = &
   (/ 0.230883521E+05_EB,-0.549598384E+03_EB, 0.773046336E+01_EB,-0.507391100E-02_EB, 0.106300000E-04_EB,&
     -0.879325000E-08_EB, 0.264818000E-11_EB/)
THERMO_DATA(301)%B(1:2,1)  = (/ 0.738989839E+04_EB,-0.131839302E+02_EB/)
THERMO_DATA(301)%A(1:7,2)  = &
   (/-0.613341333E+06_EB,-0.391929883E+03_EB, 0.913891722E+01_EB,-0.260566500E-02_EB, 0.129569000E-05_EB,&
     -0.221538000E-09_EB, 0.128039000E-13_EB/)
THERMO_DATA(301)%B(1:2,2)  = (/ 0.451732842E+04_EB,-0.230732333E+02_EB/)
THERMO_DATA(301)%H_F       =     52.698828_EB
THERMO_DATA(301)%SIGMA     =  4.112_EB ! R-132
THERMO_DATA(301)%EPSOK     =   395.30_EB
THERMO_DATA(301)%PR        =  1.42_EB ! R-132
 
THERMO_DATA(302)%FORMULA   = 'O'
THERMO_DATA(302)%NAME      = 'OXYGEN ATOM'
THERMO_DATA(302)%POLY      = 'NASA9'
THERMO_DATA(302)%BANDS     = 3
THERMO_DATA(302)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(302)%A(1:7,1)  = &
   (/-0.795361130E+04_EB, 0.160717779E+03_EB, 0.196622644E+01_EB, 0.101367000E-02_EB,-0.111042000E-05_EB,&
      0.651751000E-09_EB,-0.158478000E-12_EB/)
THERMO_DATA(302)%B(1:2,1)  = (/ 0.284036244E+05_EB, 0.840424182E+01_EB/)
THERMO_DATA(302)%A(1:7,2)  = &
   (/ 0.261902026E+06_EB,-0.729872203E+03_EB, 0.331717727E+01_EB,-0.428133000E-03_EB, 0.103610000E-06_EB,&
     -0.943830000E-11_EB, 0.272504000E-15_EB/)
THERMO_DATA(302)%B(1:2,2)  = (/ 0.339242806E+05_EB,-0.667958535E+00_EB/)
THERMO_DATA(302)%A(1:7,3)  = &
   (/ 0.177900426E+09_EB,-0.108232826E+06_EB, 0.281077836E+02_EB,-0.297523200E-02_EB, 0.185500000E-06_EB,&
     -0.579623000E-11_EB, 0.719172000E-16_EB/)
THERMO_DATA(302)%B(1:2,3)  = (/ 0.889094263E+06_EB,-0.218172815E+03_EB/)
THERMO_DATA(302)%H_F       =    249.175003_EB
THERMO_DATA(302)%SIGMA     =  3.050_EB ! R-132
THERMO_DATA(302)%EPSOK     =   106.60_EB
THERMO_DATA(302)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(303)%FORMULA   = 'O'
THERMO_DATA(303)%NAME      = 'OXYGEN ATOMm'
THERMO_DATA(303)%POLY      = 'NASA9'
THERMO_DATA(303)%BANDS     = 3
THERMO_DATA(303)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(303)%A(1:7,1)  = &
   (/-0.569585711E+04_EB, 0.109928733E+03_EB, 0.218471966E+01_EB, 0.532636000E-03_EB,-0.529888000E-06_EB,&
      0.287022000E-09_EB,-0.652469000E-13_EB/)
THERMO_DATA(303)%B(1:2,1)  = (/ 0.109328750E+05_EB, 0.672986386E+01_EB/)
THERMO_DATA(303)%A(1:7,2)  = &
   (/ 0.976936318E+04_EB, 0.715960478E+01_EB, 0.249496173E+01_EB, 0.196824000E-05_EB,-0.430417000E-09_EB,&
      0.491208000E-13_EB,-0.227160000E-17_EB/)
THERMO_DATA(303)%B(1:2,2)  = (/ 0.114955444E+05_EB, 0.483703644E+01_EB/)
THERMO_DATA(303)%A(1:7,3)  = &
   (/ 0.566239100E+03_EB, 0.757234032E+01_EB, 0.249835250E+01_EB, 0.186263000E-06_EB,-0.115123000E-10_EB,&
      0.368881000E-15_EB,-0.479330000E-20_EB/)
THERMO_DATA(303)%B(1:2,3)  = (/ 0.114842600E+05_EB, 0.481340659E+01_EB/)
THERMO_DATA(303)%H_F       =    101.846192_EB
THERMO_DATA(303)%SIGMA     =  3.050_EB ! R-132
THERMO_DATA(303)%EPSOK     =   106.60_EB
THERMO_DATA(303)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(304)%FORMULA   = 'O'
THERMO_DATA(304)%NAME      = 'OXYGEN ATOMp'
THERMO_DATA(304)%POLY      = 'NASA9'
THERMO_DATA(304)%BANDS     = 3
THERMO_DATA(304)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(304)%A(1:7,1)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(304)%B(1:2,1)  = (/ 0.187935284E+06_EB, 0.439337676E+01_EB/)
THERMO_DATA(304)%A(1:7,2)  = &
   (/-0.216651321E+06_EB, 0.666545615E+03_EB, 0.170206436E+01_EB, 0.471499000E-03_EB,-0.142713000E-06_EB,&
      0.201660000E-10_EB,-0.910716000E-15_EB/)
THERMO_DATA(304)%B(1:2,2)  = (/ 0.183719197E+06_EB, 0.100569038E+02_EB/)
THERMO_DATA(304)%A(1:7,3)  = &
   (/-0.214383538E+09_EB, 0.146951852E+06_EB,-0.368086454E+02_EB, 0.503616500E-02_EB,-0.308787000E-06_EB,&
      0.918683000E-11_EB,-0.107416000E-15_EB/)
THERMO_DATA(304)%B(1:2,3)  = (/-0.961420896E+06_EB, 0.342619308E+03_EB/)
THERMO_DATA(304)%H_F       =   1568.787230_EB
THERMO_DATA(304)%SIGMA     =  3.050_EB ! R-132
THERMO_DATA(304)%EPSOK     =   106.60_EB
THERMO_DATA(304)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(305)%FORMULA   = 'O2'
THERMO_DATA(305)%NAME      = 'OXYGEN'
THERMO_DATA(305)%POLY      = 'NASA9'
THERMO_DATA(305)%BANDS     = 3
THERMO_DATA(305)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(305)%A(1:7,1)  = &
   (/-0.342556342E+05_EB, 0.484700097E+03_EB, 0.111901096E+01_EB, 0.429388900E-02_EB,-0.683630000E-06_EB,&
     -0.202337000E-08_EB, 0.103904000E-11_EB/)
THERMO_DATA(305)%B(1:2,1)  = (/-0.339145487E+04_EB, 0.184969947E+02_EB/)
THERMO_DATA(305)%A(1:7,2)  = &
   (/-0.103793902E+07_EB, 0.234483028E+04_EB, 0.181973204E+01_EB, 0.126784800E-02_EB,-0.218807000E-06_EB,&
      0.205372000E-10_EB,-0.819347000E-15_EB/)
THERMO_DATA(305)%B(1:2,2)  = (/-0.168901093E+05_EB, 0.173871651E+02_EB/)
THERMO_DATA(305)%A(1:7,3)  = &
   (/ 0.497529430E+09_EB,-0.286610687E+06_EB, 0.669035225E+02_EB,-0.616995900E-02_EB, 0.301640000E-06_EB,&
     -0.742142000E-11_EB, 0.727818000E-16_EB/)
THERMO_DATA(305)%B(1:2,3)  = (/ 0.229355403E+07_EB,-0.553062161E+03_EB/)
THERMO_DATA(305)%H_F       =      0.000000_EB
THERMO_DATA(305)%SIGMA     =  3.467_EB ! R-132
THERMO_DATA(305)%EPSOK     =   106.70_EB
THERMO_DATA(305)%PR        =  0.71_EB ! JPCRD (19)5
THERMO_DATA(305)%LIQUID    = .TRUE.
THERMO_DATA(305)%T(1:2)    = (/60._EB,100._EB/)
THERMO_DATA(305)%A_L(3:6,1)= (/1.50911E+03_EB,8.10952E+00_EB,-1.42143E-01_EB,8.33333E-04_EB/)
THERMO_DATA(305)%H_V       = 213000._EB !J/kg
THERMO_DATA(305)%T_REF     = 54.8_EB !K
THERMO_DATA(305)%T_MELT    = 54.8_EB !K
THERMO_DATA(305)%T_BOIL    = 90.19_EB !K
THERMO_DATA(305)%DENSITY   = 1140._EB !kg/m^3
THERMO_DATA(305)%K         = 0.151_EB !W/m/K
THERMO_DATA(305)%MU        = 0.000188 !N.s/m^2
THERMO_DATA(305)%BETA      = 0.00954_EB !1/K

THERMO_DATA(306)%FORMULA   = 'O2'
THERMO_DATA(306)%NAME      = 'OXYGENm'
THERMO_DATA(306)%POLY      = 'NASA9'
THERMO_DATA(306)%BANDS     = 2
THERMO_DATA(306)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(306)%A(1:7,1)  = &
   (/ 0.188387434E+05_EB, 0.114955177E+03_EB, 0.151887682E+01_EB, 0.801611100E-02_EB,-0.985057000E-05_EB,&
      0.604420000E-08_EB,-0.148644000E-11_EB/)
THERMO_DATA(306)%B(1:2,1)  = (/-0.710153876E+04_EB, 0.150121038E+02_EB/)
THERMO_DATA(306)%A(1:7,2)  = &
   (/-0.565520805E+05_EB,-0.236781586E+03_EB, 0.467583367E+01_EB,-0.219725000E-04_EB, 0.171151000E-07_EB,&
     -0.175765000E-11_EB, 0.824817000E-16_EB/)
THERMO_DATA(306)%B(1:2,2)  = (/-0.596017775E+04_EB,-0.243688556E+01_EB/)
THERMO_DATA(306)%H_F       =    -48.027921_EB
THERMO_DATA(306)%SIGMA     =  3.467_EB ! R-132
THERMO_DATA(306)%EPSOK     =   186.70_EB
THERMO_DATA(306)%PR        =  0.71_EB ! JPCRD (19)5
 
THERMO_DATA(307)%FORMULA   = 'O2'
THERMO_DATA(307)%NAME      = 'OXYGENp'
THERMO_DATA(307)%POLY      = 'NASA9'
THERMO_DATA(307)%BANDS     = 3
THERMO_DATA(307)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(307)%A(1:7,1)  = &
   (/-0.860720545E+05_EB, 0.105187593E+04_EB,-0.543238047E+00_EB, 0.657116700E-02_EB,-0.327426000E-05_EB,&
      0.594065000E-10_EB, 0.323878000E-12_EB/)
THERMO_DATA(307)%B(1:2,1)  = (/ 0.134554467E+06_EB, 0.290270975E+02_EB/)
THERMO_DATA(307)%A(1:7,2)  = &
   (/ 0.738465488E+05_EB,-0.845955954E+03_EB, 0.498516416E+01_EB,-0.161101000E-03_EB, 0.642708000E-07_EB,&
     -0.150494000E-10_EB, 0.157847000E-14_EB/)
THERMO_DATA(307)%B(1:2,2)  = (/ 0.144632104E+06_EB,-0.581123065E+01_EB/)
THERMO_DATA(307)%A(1:7,3)  = &
   (/-0.156212552E+10_EB, 0.116140678E+07_EB,-0.330250472E+03_EB, 0.471093750E-01_EB,-0.335446000E-05_EB,&
      0.116797000E-09_EB,-0.158975000E-14_EB/)
THERMO_DATA(307)%B(1:2,3)  = (/-0.885786627E+07_EB, 0.285203560E+04_EB/)
THERMO_DATA(307)%H_F       =   1171.828440_EB
THERMO_DATA(307)%SIGMA     =  3.467_EB ! R-132
THERMO_DATA(307)%EPSOK     =   186.70_EB
THERMO_DATA(307)%PR        =  0.71_EB ! JPCRD (19)5
 
THERMO_DATA(308)%FORMULA   = 'O3'
THERMO_DATA(308)%NAME      = 'OZONE'
THERMO_DATA(308)%POLY      = 'NASA9'
THERMO_DATA(308)%BANDS     = 2
THERMO_DATA(308)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(308)%A(1:7,1)  = &
   (/-0.128231451E+05_EB, 0.589821664E+03_EB,-0.254749676E+01_EB, 0.269012150E-01_EB,-0.352826000E-04_EB,&
      0.231229000E-07_EB,-0.604489000E-11_EB/)
THERMO_DATA(308)%B(1:2,1)  = (/ 0.134836870E+05_EB, 0.385221858E+02_EB/)
THERMO_DATA(308)%A(1:7,2)  = &
   (/-0.386966248E+08_EB, 0.102334499E+06_EB,-0.896155160E+02_EB, 0.370614500E-01_EB,-0.413764000E-05_EB,&
     -0.272502000E-09_EB, 0.524819000E-13_EB/)
THERMO_DATA(308)%B(1:2,2)  = (/-0.651791818E+06_EB, 0.702910952E+03_EB/)
THERMO_DATA(308)%H_F       =    141.800000_EB
THERMO_DATA(308)%SIGMA     =  3.875_EB ! Massman(1998)
THERMO_DATA(308)%EPSOK     =   208.40_EB
THERMO_DATA(308)%PR        =  1.48_EB ! airliquide.com
 
THERMO_DATA(309)%FORMULA   = 'OH'
THERMO_DATA(309)%NAME      = 'HYDROXYL RADICAL'
THERMO_DATA(309)%POLY      = 'NASA9'
THERMO_DATA(309)%BANDS     = 3
THERMO_DATA(309)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(309)%A(1:7,1)  = &
   (/-0.199885899E+04_EB, 0.930013616E+02_EB, 0.305085423E+01_EB, 0.152952900E-02_EB,-0.315789000E-05_EB,&
      0.331545000E-08_EB,-0.113876000E-11_EB/)
THERMO_DATA(309)%B(1:2,1)  = (/ 0.299121423E+04_EB, 0.467411079E+01_EB/)
THERMO_DATA(309)%A(1:7,2)  = &
   (/ 0.101739338E+07_EB,-0.250995728E+04_EB, 0.511654786E+01_EB, 0.130530000E-03_EB,-0.828432000E-07_EB,&
      0.200648000E-10_EB,-0.155699000E-14_EB/)
THERMO_DATA(309)%B(1:2,2)  = (/ 0.201964021E+05_EB,-0.110128234E+02_EB/)
THERMO_DATA(309)%A(1:7,3)  = &
   (/ 0.284723419E+09_EB,-0.185953261E+06_EB, 0.500824090E+02_EB,-0.514237500E-02_EB, 0.287554000E-06_EB,&
     -0.822882000E-11_EB, 0.956723000E-16_EB/)
THERMO_DATA(309)%B(1:2,3)  = (/ 0.146839391E+07_EB,-0.402355558E+03_EB/)
THERMO_DATA(309)%H_F       =     37.278206_EB
THERMO_DATA(309)%SIGMA     =  3.147_EB ! R-132
THERMO_DATA(309)%EPSOK     =    79.80_EB
THERMO_DATA(309)%PR        =  0.69_EB ! R-132
 
THERMO_DATA(310)%FORMULA   = 'OH'
THERMO_DATA(310)%NAME      = 'HYDROXYL RADICALm'
THERMO_DATA(310)%POLY      = 'NASA9'
THERMO_DATA(310)%BANDS     = 2
THERMO_DATA(310)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(310)%A(1:7,1)  = &
   (/ 0.291088083E+05_EB,-0.321690494E+03_EB, 0.485102905E+01_EB,-0.257903500E-02_EB, 0.200498000E-05_EB,&
     -0.795685000E-10_EB,-0.232050000E-12_EB/)
THERMO_DATA(310)%B(1:2,1)  = (/-0.168888623E+05_EB,-0.712159130E+01_EB/)
THERMO_DATA(310)%A(1:7,2)  = &
   (/ 0.471133117E+06_EB,-0.857233669E+03_EB, 0.316618121E+01_EB, 0.123358100E-02_EB,-0.399924000E-06_EB,&
      0.623908000E-10_EB,-0.335434000E-14_EB/)
THERMO_DATA(310)%B(1:2,2)  = (/-0.122484914E+05_EB, 0.148773626E+01_EB/)
THERMO_DATA(310)%H_F       =   -145.256196_EB
THERMO_DATA(310)%SIGMA     =  3.147_EB ! R-132
THERMO_DATA(310)%EPSOK     =    79.80_EB
THERMO_DATA(310)%PR        =  0.69_EB ! R-132
 
THERMO_DATA(311)%FORMULA   = 'OH'
THERMO_DATA(311)%NAME      = 'HYDROXYL RADICALp'
THERMO_DATA(311)%POLY      = 'NASA9'
THERMO_DATA(311)%BANDS     = 3
THERMO_DATA(311)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(311)%A(1:7,1)  = &
   (/ 0.603163086E+05_EB,-0.757352030E+03_EB, 0.730775293E+01_EB,-0.950688200E-02_EB, 0.120256000E-04_EB,&
     -0.682903000E-08_EB, 0.150159000E-11_EB/)
THERMO_DATA(311)%B(1:2,1)  = (/ 0.158926216E+06_EB,-0.195010700E+02_EB/)
THERMO_DATA(311)%A(1:7,2)  = &
   (/ 0.504072910E+06_EB,-0.138005296E+04_EB, 0.412546220E+01_EB, 0.833195000E-03_EB,-0.344286000E-06_EB,&
      0.679285000E-10_EB,-0.436387000E-14_EB/)
THERMO_DATA(311)%B(1:2,2)  = (/ 0.164383924E+06_EB,-0.399705849E+01_EB/)
THERMO_DATA(311)%A(1:7,3)  = &
   (/ 0.115828670E+10_EB,-0.684128039E+06_EB, 0.157619456E+03_EB,-0.161842130E-01_EB, 0.884613000E-06_EB,&
     -0.247504000E-10_EB, 0.280773000E-15_EB/)
THERMO_DATA(311)%B(1:2,3)  = (/ 0.561659718E+07_EB,-0.135187904E+04_EB/)
THERMO_DATA(311)%H_F       =   1299.213200_EB
THERMO_DATA(311)%SIGMA     =  3.147_EB ! R-132
THERMO_DATA(311)%EPSOK     =    79.80_EB
THERMO_DATA(311)%PR        =  0.69_EB ! R-132
 
THERMO_DATA(312)%FORMULA   = 'P'
THERMO_DATA(312)%NAME      = 'PHOSPHORUS'
THERMO_DATA(312)%POLY      = 'NASA9'
THERMO_DATA(312)%BANDS     = 3
THERMO_DATA(312)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(312)%A(1:7,1)  = &
   (/ 0.504086657E+02_EB,-0.763941865E+00_EB, 0.250456399E+01_EB,-0.138169000E-04_EB, 0.224559000E-07_EB,&
     -0.186640000E-10_EB, 0.622706000E-14_EB/)
THERMO_DATA(312)%B(1:2,1)  = (/ 0.373242191E+05_EB, 0.535930348E+01_EB/)
THERMO_DATA(312)%A(1:7,2)  = &
   (/ 0.126179464E+07_EB,-0.455983819E+04_EB, 0.891807931E+01_EB,-0.438140100E-02_EB, 0.145429000E-05_EB,&
     -0.203078000E-09_EB, 0.102102000E-13_EB/)
THERMO_DATA(312)%B(1:2,2)  = (/ 0.654172396E+05_EB,-0.391597480E+02_EB/)
THERMO_DATA(312)%A(1:7,3)  = &
   (/-0.221539254E+08_EB,-0.456691118E+05_EB, 0.283724543E+02_EB,-0.448324400E-02_EB, 0.357941000E-06_EB,&
     -0.125531000E-10_EB, 0.159029000E-15_EB/)
THERMO_DATA(312)%B(1:2,3)  = (/ 0.337090576E+06_EB,-0.205696093E+03_EB/)
THERMO_DATA(312)%H_F       =    316.500000_EB
THERMO_DATA(312)%SIGMA     =  4.115_EB ! R-132
THERMO_DATA(312)%EPSOK     =   653.00_EB
THERMO_DATA(312)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(313)%FORMULA   = 'P'
THERMO_DATA(313)%NAME      = 'PHOSPHORUSm'
THERMO_DATA(313)%POLY      = 'NASA9'
THERMO_DATA(313)%BANDS     = 3
THERMO_DATA(313)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(313)%A(1:7,1)  = &
   (/-0.100894909E+05_EB, 0.182646840E+03_EB, 0.196245630E+01_EB, 0.919738000E-03_EB,-0.921500000E-06_EB,&
      0.501287000E-09_EB,-0.114268000E-12_EB/)
THERMO_DATA(313)%B(1:2,1)  = (/ 0.270308243E+05_EB, 0.947813782E+01_EB/)
THERMO_DATA(313)%A(1:7,2)  = &
   (/ 0.154348802E+05_EB, 0.949500934E+01_EB, 0.249317086E+01_EB, 0.270017000E-05_EB,-0.594921000E-09_EB,&
      0.682377000E-13_EB,-0.316696000E-17_EB/)
THERMO_DATA(313)%B(1:2,2)  = (/ 0.279757269E+05_EB, 0.624679387E+01_EB/)
THERMO_DATA(313)%A(1:7,3)  = &
   (/ 0.172414789E+04_EB, 0.107483250E+02_EB, 0.249765494E+01_EB, 0.265533000E-06_EB,-0.164284000E-10_EB,&
      0.526802000E-15_EB,-0.684936000E-20_EB/)
THERMO_DATA(313)%B(1:2,3)  = (/ 0.279548298E+05_EB, 0.621584926E+01_EB/)
THERMO_DATA(313)%H_F       =    238.826765_EB
THERMO_DATA(313)%SIGMA     =  4.115_EB ! R-132
THERMO_DATA(313)%EPSOK     =   653.00_EB
THERMO_DATA(313)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(314)%FORMULA   = 'P'
THERMO_DATA(314)%NAME      = 'PHOSPHORUSp'
THERMO_DATA(314)%POLY      = 'NASA9'
THERMO_DATA(314)%BANDS     = 3
THERMO_DATA(314)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(314)%A(1:7,1)  = &
   (/-0.731690811E+05_EB, 0.962797914E+03_EB,-0.369393805E+00_EB, 0.476677800E-02_EB,-0.457477000E-05_EB,&
      0.237126000E-08_EB,-0.513131000E-12_EB/)
THERMO_DATA(314)%B(1:2,1)  = (/ 0.154940685E+06_EB, 0.237664076E+02_EB/)
THERMO_DATA(314)%A(1:7,2)  = &
   (/-0.559424936E+06_EB, 0.172257654E+04_EB, 0.843038109E+00_EB, 0.628737000E-03_EB,-0.631720000E-07_EB,&
     -0.181084000E-11_EB, 0.431811000E-15_EB/)
THERMO_DATA(314)%B(1:2,2)  = (/ 0.149049343E+06_EB, 0.184527521E+02_EB/)
THERMO_DATA(314)%A(1:7,3)  = &
   (/ 0.136253105E+08_EB,-0.871750238E+04_EB, 0.474742628E+01_EB,-0.162087000E-03_EB,-0.393555000E-09_EB,&
      0.484561000E-12_EB,-0.744840000E-17_EB/)
THERMO_DATA(314)%B(1:2,3)  = (/ 0.228464972E+06_EB,-0.134645489E+02_EB/)
THERMO_DATA(314)%H_F       =   1336.453460_EB
THERMO_DATA(314)%SIGMA     =  4.115_EB ! R-132
THERMO_DATA(314)%EPSOK     =   653.00_EB
THERMO_DATA(314)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(315)%FORMULA   = 'P2'
THERMO_DATA(315)%NAME      = 'PHOSPHORUS DIMER'
THERMO_DATA(315)%POLY      = 'NASA9'
THERMO_DATA(315)%BANDS     = 2
THERMO_DATA(315)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(315)%A(1:7,1)  = &
   (/ 0.305392251E+05_EB,-0.324617759E+03_EB, 0.402246381E+01_EB, 0.323209500E-02_EB,-0.551105000E-05_EB,&
      0.419557000E-08_EB,-0.121503000E-11_EB/)
THERMO_DATA(315)%B(1:2,1)  = (/ 0.179691087E+05_EB, 0.164535033E+01_EB/)
THERMO_DATA(315)%A(1:7,2)  = &
   (/-0.780693649E+06_EB, 0.230791087E+04_EB, 0.141174313E+01_EB, 0.210823700E-02_EB,-0.736086000E-06_EB,&
      0.125936000E-09_EB,-0.707975000E-14_EB/)
THERMO_DATA(315)%B(1:2,2)  = (/ 0.132982474E+04_EB, 0.216974137E+02_EB/)
THERMO_DATA(315)%H_F       =    144.000000_EB
THERMO_DATA(315)%SIGMA     =  4.887_EB ! R-132
THERMO_DATA(315)%EPSOK     =   653.00_EB
THERMO_DATA(315)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(316)%FORMULA   = 'P4'
THERMO_DATA(316)%NAME      = 'TETRAPHOSPHORUS'
THERMO_DATA(316)%POLY      = 'NASA9'
THERMO_DATA(316)%BANDS     = 2
THERMO_DATA(316)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(316)%A(1:7,1)  = &
   (/ 0.120514185E+06_EB,-0.234571179E+04_EB, 0.177394655E+02_EB,-0.145631500E-01_EB, 0.158759000E-04_EB,&
     -0.931471000E-08_EB, 0.227149000E-11_EB/)
THERMO_DATA(316)%B(1:2,1)  = (/ 0.160884648E+05_EB,-0.708859065E+02_EB/)
THERMO_DATA(316)%A(1:7,2)  = &
   (/-0.185870586E+06_EB,-0.628454689E+02_EB, 0.100484488E+02_EB,-0.198767000E-04_EB, 0.448241000E-08_EB,&
     -0.522610000E-12_EB, 0.245579000E-16_EB/)
THERMO_DATA(316)%B(1:2,2)  = (/ 0.384821092E+04_EB,-0.247729780E+02_EB/)
THERMO_DATA(316)%H_F       =     58.900000_EB
THERMO_DATA(316)%SIGMA     =  5.455_EB ! R-132
THERMO_DATA(316)%EPSOK     =   711.00_EB
THERMO_DATA(316)%PR        =  0.73_EB ! R-132
 
THERMO_DATA(317)%FORMULA   = 'PCl'
THERMO_DATA(317)%NAME      = 'PHOSPHORUS CHLORIDE'
THERMO_DATA(317)%POLY      = 'NASA9'
THERMO_DATA(317)%BANDS     = 2
THERMO_DATA(317)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(317)%A(1:7,1)  = &
   (/ 0.348886170E+05_EB,-0.560311934E+03_EB, 0.626456848E+01_EB,-0.318336400E-02_EB, 0.349533000E-05_EB,&
     -0.209103000E-08_EB, 0.541876000E-12_EB/)
THERMO_DATA(317)%B(1:2,1)  = (/ 0.177465376E+05_EB,-0.807457215E+01_EB/)
THERMO_DATA(317)%A(1:7,2)  = &
   (/-0.347168151E+06_EB, 0.993555793E+03_EB, 0.339943027E+01_EB, 0.401971000E-03_EB, 0.829559000E-07_EB,&
     -0.309021000E-10_EB, 0.210638000E-14_EB/)
THERMO_DATA(317)%B(1:2,2)  = (/ 0.843359115E+04_EB, 0.106490224E+02_EB/)
THERMO_DATA(317)%H_F       =    134.615112_EB
THERMO_DATA(317)%SIGMA     =  4.552_EB ! R-132
THERMO_DATA(317)%EPSOK     =   454.00_EB
THERMO_DATA(317)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(318)%FORMULA   = 'PCl3'
THERMO_DATA(318)%NAME      = 'PHOSPHORUS TRICHLORIDE'
THERMO_DATA(318)%POLY      = 'NASA9'
THERMO_DATA(318)%BANDS     = 2
THERMO_DATA(318)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(318)%A(1:7,1)  = &
   (/ 0.771774547E+05_EB,-0.161765086E+04_EB, 0.153608047E+02_EB,-0.101107710E-01_EB, 0.110341000E-04_EB,&
     -0.647612000E-08_EB, 0.157915000E-11_EB/)
THERMO_DATA(318)%B(1:2,1)  = (/-0.295589364E+05_EB,-0.524433869E+02_EB/)
THERMO_DATA(318)%A(1:7,2)  = &
   (/-0.133307693E+06_EB,-0.414588321E+02_EB, 0.100318606E+02_EB,-0.130195000E-04_EB, 0.292292000E-08_EB,&
     -0.339187000E-12_EB, 0.158643000E-16_EB/)
THERMO_DATA(318)%B(1:2,2)  = (/-0.380033668E+05_EB,-0.205073768E+02_EB/)
THERMO_DATA(318)%H_F       =   -289.500000_EB
THERMO_DATA(318)%SIGMA     =  5.240_EB ! R-132
THERMO_DATA(318)%EPSOK     =   419.00_EB
THERMO_DATA(318)%PR        =  0.73_EB ! R-132
 
THERMO_DATA(319)%FORMULA   = 'PF'
THERMO_DATA(319)%NAME      = 'PHOSPHORUS MONOFLUORIDE'
THERMO_DATA(319)%POLY      = 'NASA9'
THERMO_DATA(319)%BANDS     = 2
THERMO_DATA(319)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(319)%A(1:7,1)  = &
   (/ 0.222786673E+05_EB,-0.172750871E+03_EB, 0.308536693E+01_EB, 0.548971800E-02_EB,-0.824797000E-05_EB,&
      0.586888000E-08_EB,-0.161725000E-11_EB/)
THERMO_DATA(319)%B(1:2,1)  = (/-0.580927965E+04_EB, 0.770971885E+01_EB/)
THERMO_DATA(319)%A(1:7,2)  = &
   (/-0.113257228E+07_EB, 0.320003855E+04_EB, 0.778050237E+00_EB, 0.196951900E-02_EB,-0.436582000E-06_EB,&
      0.524365000E-10_EB,-0.261876000E-14_EB/)
THERMO_DATA(319)%B(1:2,2)  = (/-0.276677301E+05_EB, 0.275931230E+02_EB/)
THERMO_DATA(319)%H_F       =    -47.944793_EB
THERMO_DATA(319)%SIGMA     =  4.120_EB ! R-132
THERMO_DATA(319)%EPSOK     =   271.00_EB
THERMO_DATA(319)%PR        =  0.69_EB ! R-132
 
THERMO_DATA(320)%FORMULA   = 'PF'
THERMO_DATA(320)%NAME      = 'PHOSPHORUS MONOFLUORIDEm'
THERMO_DATA(320)%POLY      = 'NASA9'
THERMO_DATA(320)%BANDS     = 3
THERMO_DATA(320)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(320)%A(1:7,1)  = &
   (/ 0.770521095E+04_EB,-0.115243271E+03_EB, 0.425495231E+01_EB, 0.116352200E-02_EB,-0.162795000E-05_EB,&
      0.108438000E-08_EB,-0.280949000E-12_EB/)
THERMO_DATA(320)%B(1:2,1)  = (/-0.203555897E+05_EB, 0.221792379E+01_EB/)
THERMO_DATA(320)%A(1:7,2)  = &
   (/-0.130379339E+06_EB, 0.271552639E+03_EB, 0.413761981E+01_EB, 0.272861000E-03_EB,-0.764442000E-07_EB,&
      0.118207000E-10_EB,-0.608391000E-15_EB/)
THERMO_DATA(320)%B(1:2,2)  = (/-0.229079983E+05_EB, 0.374852610E+01_EB/)
THERMO_DATA(320)%A(1:7,3)  = &
   (/-0.258970249E+08_EB, 0.227482788E+05_EB,-0.291320483E+01_EB, 0.113435200E-02_EB,-0.718477000E-07_EB,&
      0.225407000E-11_EB,-0.278161000E-16_EB/)
THERMO_DATA(320)%B(1:2,3)  = (/-0.194075194E+06_EB, 0.637245424E+02_EB/)
THERMO_DATA(320)%H_F       =   -164.046000_EB
THERMO_DATA(320)%SIGMA     =  4.120_EB ! R-132
THERMO_DATA(320)%EPSOK     =   271.00_EB
THERMO_DATA(320)%PR        =  0.69_EB ! R-132
 
THERMO_DATA(321)%FORMULA   = 'PF'
THERMO_DATA(321)%NAME      = 'PHOSPHORUS MONOFLUORIDEp'
THERMO_DATA(321)%POLY      = 'NASA9'
THERMO_DATA(321)%BANDS     = 3
THERMO_DATA(321)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(321)%A(1:7,1)  = &
   (/-0.177913816E+05_EB, 0.390999127E+03_EB, 0.125743416E+01_EB, 0.786136400E-02_EB,-0.934231000E-05_EB,&
      0.563092000E-08_EB,-0.137067000E-11_EB/)
THERMO_DATA(321)%B(1:2,1)  = (/ 0.105487388E+06_EB, 0.190167658E+02_EB/)
THERMO_DATA(321)%A(1:7,2)  = &
   (/-0.401152518E+05_EB,-0.159750441E+03_EB, 0.462139748E+01_EB,-0.237807000E-04_EB, 0.143183000E-07_EB,&
     -0.230011000E-11_EB, 0.169407000E-15_EB/)
THERMO_DATA(321)%B(1:2,2)  = (/ 0.107863376E+06_EB,-0.407234400E-01_EB/)
THERMO_DATA(321)%A(1:7,3)  = &
   (/-0.262868692E+08_EB, 0.130087653E+05_EB, 0.256471366E+01_EB, 0.326965000E-04_EB, 0.186719000E-07_EB,&
     -0.929331000E-12_EB, 0.145672000E-16_EB/)
THERMO_DATA(321)%B(1:2,3)  = (/-0.264050351E+03_EB, 0.192158866E+02_EB/)
THERMO_DATA(321)%H_F       =    901.518000_EB
THERMO_DATA(321)%SIGMA     =  4.120_EB ! R-132
THERMO_DATA(321)%EPSOK     =   271.00_EB
THERMO_DATA(321)%PR        =  0.69_EB ! R-132
 
THERMO_DATA(322)%FORMULA   = 'PF3'
THERMO_DATA(322)%NAME      = 'PHOSPHORUS TRIFLUORIDE'
THERMO_DATA(322)%POLY      = 'NASA9'
THERMO_DATA(322)%BANDS     = 2
THERMO_DATA(322)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(322)%A(1:7,1)  = &
   (/ 0.848098448E+05_EB,-0.110234069E+04_EB, 0.716071511E+01_EB, 0.143827830E-01_EB,-0.231814000E-04_EB,&
      0.170224000E-07_EB,-0.481099000E-11_EB/)
THERMO_DATA(322)%B(1:2,1)  = (/-0.111183750E+06_EB,-0.145765236E+02_EB/)
THERMO_DATA(322)%A(1:7,2)  = &
   (/-0.295704068E+06_EB,-0.299768993E+03_EB, 0.102229702E+02_EB,-0.889026000E-04_EB, 0.195890000E-07_EB,&
     -0.224049000E-11_EB, 0.103595000E-15_EB/)
THERMO_DATA(322)%B(1:2,2)  = (/-0.117374346E+06_EB,-0.277741918E+02_EB/)
THERMO_DATA(322)%H_F       =   -957.400000_EB
THERMO_DATA(322)%SIGMA     =  4.360_EB ! R-132
THERMO_DATA(322)%EPSOK     =   203.30_EB
THERMO_DATA(322)%PR        =  0.72_EB ! R-132
 
THERMO_DATA(323)%FORMULA   = 'PH3'
THERMO_DATA(323)%NAME      = 'PHOSPHINE'
THERMO_DATA(323)%POLY      = 'NASA9'
THERMO_DATA(323)%BANDS     = 2
THERMO_DATA(323)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(323)%A(1:7,1)  = &
   (/-0.638432534E+04_EB, 0.405756741E+03_EB,-0.156568009E+00_EB, 0.133838060E-01_EB,-0.827539000E-05_EB,&
      0.302436000E-08_EB,-0.642176000E-12_EB/)
THERMO_DATA(323)%B(1:2,1)  = (/-0.215984212E+04_EB, 0.238556189E+02_EB/)
THERMO_DATA(323)%A(1:7,2)  = &
   (/ 0.133480111E+07_EB,-0.672546352E+04_EB, 0.144585707E+02_EB,-0.163973700E-02_EB, 0.340922000E-06_EB,&
     -0.373627000E-10_EB, 0.167295000E-14_EB/)
THERMO_DATA(323)%B(1:2,2)  = (/ 0.391032571E+05_EB,-0.719878119E+02_EB/)
THERMO_DATA(323)%H_F       =      5.439000_EB
THERMO_DATA(323)%SIGMA     =  3.981_EB ! R-132
THERMO_DATA(323)%EPSOK     =   251.50_EB
THERMO_DATA(323)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(324)%FORMULA   = 'PN'
THERMO_DATA(324)%NAME      = 'PHOSPHORUS MONONITRIDE'
THERMO_DATA(324)%POLY      = 'NASA9'
THERMO_DATA(324)%BANDS     = 2
THERMO_DATA(324)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(324)%A(1:7,1)  = &
   (/-0.510320384E+05_EB, 0.820292668E+03_EB,-0.139277276E+01_EB, 0.128798980E-01_EB,-0.140143000E-04_EB,&
      0.777563000E-08_EB,-0.175154000E-11_EB/)
THERMO_DATA(324)%B(1:2,1)  = (/ 0.157322652E+05_EB, 0.325107063E+02_EB/)
THERMO_DATA(324)%A(1:7,2)  = &
   (/-0.249562559E+06_EB, 0.176043883E+03_EB, 0.414412196E+01_EB, 0.247802000E-03_EB,-0.567490000E-07_EB,&
      0.426365000E-11_EB, 0.306392000E-15_EB/)
THERMO_DATA(324)%B(1:2,2)  = (/ 0.177031727E+05_EB, 0.132551740E+01_EB/)
THERMO_DATA(324)%H_F       =    171.487305_EB
THERMO_DATA(324)%SIGMA     =  4.432_EB ! R-132
THERMO_DATA(324)%EPSOK     =   216.00_EB
THERMO_DATA(324)%PR        =  0.69_EB ! R-132
 
THERMO_DATA(325)%FORMULA   = 'PO'
THERMO_DATA(325)%NAME      = 'PHOSPHORUS MONOXIDE'
THERMO_DATA(325)%POLY      = 'NASA9'
THERMO_DATA(325)%BANDS     = 2
THERMO_DATA(325)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(325)%A(1:7,1)  = &
   (/-0.684575406E+05_EB, 0.114129571E+04_EB,-0.277955606E+01_EB, 0.167845810E-01_EB,-0.197488000E-04_EB,&
      0.119260000E-07_EB,-0.292746000E-11_EB/)
THERMO_DATA(325)%B(1:2,1)  = (/-0.984774504E+04_EB, 0.418432830E+02_EB/)
THERMO_DATA(325)%A(1:7,2)  = &
   (/-0.336666744E+06_EB, 0.622935584E+03_EB, 0.356560546E+01_EB, 0.651662000E-03_EB,-0.206177000E-06_EB,&
      0.318441000E-10_EB,-0.157369000E-14_EB/)
THERMO_DATA(325)%B(1:2,2)  = (/-0.893979039E+04_EB, 0.695485919E+01_EB/)
THERMO_DATA(325)%H_F       =    -27.857687_EB
THERMO_DATA(325)%SIGMA     =  4.177_EB ! R-132
THERMO_DATA(325)%EPSOK     =   264.00_EB
THERMO_DATA(325)%PR        =  0.69_EB ! R-132
 
THERMO_DATA(326)%FORMULA   = 'PO'
THERMO_DATA(326)%NAME      = 'PHOSPHORUS MONOXIDEm'
THERMO_DATA(326)%POLY      = 'NASA9'
THERMO_DATA(326)%BANDS     = 2
THERMO_DATA(326)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(326)%A(1:7,1)  = &
   (/ 0.543434632E+05_EB,-0.412362355E+03_EB, 0.374648388E+01_EB, 0.385863600E-02_EB,-0.596334000E-05_EB,&
      0.427829000E-08_EB,-0.113972000E-11_EB/)
THERMO_DATA(326)%B(1:2,1)  = (/-0.155581094E+05_EB, 0.340443647E+01_EB/)
THERMO_DATA(326)%A(1:7,2)  = &
   (/-0.848029478E+03_EB, 0.347054487E+03_EB, 0.287789017E+01_EB, 0.162218200E-02_EB,-0.487019000E-06_EB,&
      0.664575000E-10_EB,-0.339570000E-14_EB/)
THERMO_DATA(326)%B(1:2,2)  = (/-0.198720954E+05_EB, 0.107544435E+02_EB/)
THERMO_DATA(326)%H_F       =   -140.067094_EB
THERMO_DATA(326)%SIGMA     =  4.177_EB ! R-132
THERMO_DATA(326)%EPSOK     =   264.00_EB
THERMO_DATA(326)%PR        =  0.69_EB ! R-132
 
THERMO_DATA(327)%FORMULA   = 'PS'
THERMO_DATA(327)%NAME      = 'PHOSPHORUS MONOSULFIDE'
THERMO_DATA(327)%POLY      = 'NASA9'
THERMO_DATA(327)%BANDS     = 2
THERMO_DATA(327)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(327)%A(1:7,1)  = &
   (/-0.768978680E+03_EB,-0.463782407E+02_EB, 0.410464917E+01_EB, 0.155526200E-02_EB,-0.231576000E-05_EB,&
      0.166143000E-08_EB,-0.463124000E-12_EB/)
THERMO_DATA(327)%B(1:2,1)  = (/ 0.170787581E+05_EB, 0.423065217E+01_EB/)
THERMO_DATA(327)%A(1:7,2)  = &
   (/-0.270272908E+06_EB, 0.888354822E+03_EB, 0.316919012E+01_EB, 0.102248100E-02_EB,-0.380374000E-06_EB,&
      0.701986000E-10_EB,-0.426912000E-14_EB/)
THERMO_DATA(327)%B(1:2,2)  = (/ 0.112151046E+05_EB, 0.114733405E+02_EB/)
THERMO_DATA(327)%H_F       =    150.431316_EB
THERMO_DATA(327)%SIGMA     =  4.730_EB ! R-132
THERMO_DATA(327)%EPSOK     =   744.00_EB
THERMO_DATA(327)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(328)%FORMULA   = 'S'
THERMO_DATA(328)%NAME      = 'SULFUR'
THERMO_DATA(328)%POLY      = 'NASA9'
THERMO_DATA(328)%BANDS     = 3
THERMO_DATA(328)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(328)%A(1:7,1)  = &
   (/-0.317484182E+03_EB,-0.192470492E+03_EB, 0.468682593E+01_EB,-0.584136600E-02_EB, 0.753853000E-05_EB,&
     -0.486359000E-08_EB, 0.125698000E-11_EB/)
THERMO_DATA(328)%B(1:2,1)  = (/ 0.332359218E+05_EB,-0.571852397E+01_EB/)
THERMO_DATA(328)%A(1:7,2)  = &
   (/-0.485424479E+06_EB, 0.143883041E+04_EB, 0.125850412E+01_EB, 0.379799000E-03_EB, 0.163069000E-08_EB,&
     -0.954710000E-11_EB, 0.804147000E-15_EB/)
THERMO_DATA(328)%B(1:2,2)  = (/ 0.233499527E+05_EB, 0.155955486E+02_EB/)
THERMO_DATA(328)%A(1:7,3)  = &
   (/-0.130200541E+09_EB, 0.690936202E+05_EB,-0.117622802E+02_EB, 0.160154100E-02_EB,-0.105053000E-06_EB,&
      0.434183000E-11_EB,-0.767562000E-16_EB/)
THERMO_DATA(328)%B(1:2,3)  = (/-0.526148503E+06_EB, 0.132219525E+03_EB/)
THERMO_DATA(328)%H_F       =    277.170000_EB
THERMO_DATA(328)%SIGMA     =  3.839_EB ! R-132
THERMO_DATA(328)%EPSOK     =   847.00_EB
THERMO_DATA(328)%PR        =  0.69_EB ! R-132
 
THERMO_DATA(329)%FORMULA   = 'S'
THERMO_DATA(329)%NAME      = 'SULFURm'
THERMO_DATA(329)%POLY      = 'NASA9'
THERMO_DATA(329)%BANDS     = 3
THERMO_DATA(329)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(329)%A(1:7,1)  = &
   (/-0.259605147E+04_EB,-0.142239865E+03_EB, 0.400782567E+01_EB,-0.360885600E-02_EB, 0.423623000E-05_EB,&
     -0.252099000E-08_EB, 0.607948000E-12_EB/)
THERMO_DATA(329)%B(1:2,1)  = (/ 0.819779307E+04_EB,-0.258237734E+01_EB/)
THERMO_DATA(329)%A(1:7,2)  = &
   (/ 0.273031169E+04_EB, 0.141407208E+03_EB, 0.240334078E+01_EB, 0.369358000E-04_EB,-0.794408000E-08_EB,&
      0.895221000E-12_EB,-0.409966000E-16_EB/)
THERMO_DATA(329)%B(1:2,2)  = (/ 0.693119570E+04_EB, 0.657498690E+01_EB/)
THERMO_DATA(329)%A(1:7,3)  = &
   (/-0.122368209E+06_EB, 0.120312584E+03_EB, 0.247394229E+01_EB, 0.293546000E-05_EB,-0.180858000E-09_EB,&
      0.577885000E-14_EB,-0.749034000E-19_EB/)
THERMO_DATA(329)%B(1:2,3)  = (/ 0.694784122E+04_EB, 0.607057977E+01_EB/)
THERMO_DATA(329)%H_F       =     70.368505_EB
THERMO_DATA(329)%SIGMA     =  3.839_EB ! R-132
THERMO_DATA(329)%EPSOK     =   847.00_EB
THERMO_DATA(329)%PR        =  0.69_EB ! R-132
 
THERMO_DATA(330)%FORMULA   = 'S'
THERMO_DATA(330)%NAME      = 'SULFURp'
THERMO_DATA(330)%POLY      = 'NASA9'
THERMO_DATA(330)%BANDS     = 3
THERMO_DATA(330)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(330)%A(1:7,1)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(330)%B(1:2,1)  = (/ 0.153502612E+06_EB, 0.543622334E+01_EB/)
THERMO_DATA(330)%A(1:7,2)  = &
   (/ 0.134621868E+07_EB,-0.405687151E+04_EB, 0.715343655E+01_EB,-0.252356200E-02_EB, 0.642954000E-06_EB,&
     -0.643167000E-10_EB, 0.214139000E-14_EB/)
THERMO_DATA(330)%B(1:2,2)  = (/ 0.179282383E+06_EB,-0.278693508E+02_EB/)
THERMO_DATA(330)%A(1:7,3)  = &
   (/ 0.154225458E+09_EB,-0.102307355E+06_EB, 0.259179694E+02_EB,-0.211146900E-02_EB, 0.921557000E-07_EB,&
     -0.196417000E-11_EB, 0.209622000E-16_EB/)
THERMO_DATA(330)%B(1:2,3)  = (/ 0.962241841E+06_EB,-0.201723996E+03_EB/)
THERMO_DATA(330)%H_F       =   1282.496430_EB
THERMO_DATA(330)%SIGMA     =  3.839_EB ! R-132
THERMO_DATA(330)%EPSOK     =   847.00_EB
THERMO_DATA(330)%PR        =  0.69_EB ! R-132
 
THERMO_DATA(331)%FORMULA   = 'S2'
THERMO_DATA(331)%NAME      = 'SULFUR DIMER'
THERMO_DATA(331)%POLY      = 'NASA9'
THERMO_DATA(331)%BANDS     = 2
THERMO_DATA(331)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(331)%A(1:7,1)  = &
   (/ 0.352809178E+05_EB,-0.422215658E+03_EB, 0.467743349E+01_EB, 0.172404600E-02_EB,-0.386221000E-05_EB,&
      0.333616000E-08_EB,-0.993066000E-12_EB/)
THERMO_DATA(331)%B(1:2,1)  = (/ 0.165476771E+05_EB,-0.795727903E+00_EB/)
THERMO_DATA(331)%A(1:7,2)  = &
   (/-0.158812879E+05_EB, 0.631548088E+03_EB, 0.244962807E+01_EB, 0.198624100E-02_EB,-0.650793000E-06_EB,&
      0.100281000E-09_EB,-0.559699000E-14_EB/)
THERMO_DATA(331)%B(1:2,2)  = (/ 0.108550843E+05_EB, 0.145854451E+02_EB/)
THERMO_DATA(331)%H_F       =    128.600000_EB
THERMO_DATA(331)%SIGMA     =  4.519_EB ! R-132
THERMO_DATA(331)%EPSOK     =   847.00_EB
THERMO_DATA(331)%PR        =  0.69_EB ! R-132
 
THERMO_DATA(332)%FORMULA   = 'S2'
THERMO_DATA(332)%NAME      = 'SULFUR DIMERm'
THERMO_DATA(332)%POLY      = 'NASA9'
THERMO_DATA(332)%BANDS     = 2
THERMO_DATA(332)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(332)%A(1:7,1)  = &
   (/ 0.102555825E+05_EB,-0.616612825E+03_EB, 0.818205284E+01_EB,-0.831120400E-02_EB, 0.972027000E-05_EB,&
     -0.577548000E-08_EB, 0.139369000E-11_EB/)
THERMO_DATA(332)%B(1:2,1)  = (/-0.306355987E+04_EB,-0.190606804E+02_EB/)
THERMO_DATA(332)%A(1:7,2)  = &
   (/ 0.483020403E+06_EB,-0.131917130E+04_EB, 0.603177848E+01_EB,-0.796556000E-03_EB, 0.228224000E-06_EB,&
     -0.250436000E-10_EB, 0.728055000E-15_EB/)
THERMO_DATA(332)%B(1:2,2)  = (/ 0.266025849E+04_EB,-0.901048032E+01_EB/)
THERMO_DATA(332)%H_F       =    -37.132385_EB
THERMO_DATA(332)%SIGMA     =  4.519_EB ! R-132
THERMO_DATA(332)%EPSOK     =   847.00_EB
THERMO_DATA(332)%PR        =  0.69_EB ! R-132
 
THERMO_DATA(333)%FORMULA   = 'S2F2'
THERMO_DATA(333)%NAME      = 'DIFLUORODISULFANE'
THERMO_DATA(333)%POLY      = 'NASA9'
THERMO_DATA(333)%BANDS     = 2
THERMO_DATA(333)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(333)%A(1:7,1)  = &
   (/ 0.125290404E+06_EB,-0.194124387E+04_EB, 0.132538218E+02_EB,-0.134152500E-02_EB,-0.277247000E-05_EB,&
      0.365817000E-08_EB,-0.129953000E-11_EB/)
THERMO_DATA(333)%B(1:2,1)  = (/-0.406720825E+05_EB,-0.456082862E+02_EB/)
THERMO_DATA(333)%A(1:7,2)  = &
   (/-0.259175772E+06_EB,-0.105965307E+03_EB, 0.100658855E+02_EB,-0.227462000E-04_EB, 0.541234000E-08_EB,&
     -0.991139000E-12_EB, 0.962186000E-16_EB/)
THERMO_DATA(333)%B(1:2,2)  = (/-0.514767518E+05_EB,-0.237566614E+02_EB/)
THERMO_DATA(333)%H_F       =   -401.413000_EB
THERMO_DATA(333)%SIGMA     =  4.702_EB ! R-132
THERMO_DATA(333)%EPSOK     =   205.60_EB
THERMO_DATA(333)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(334)%FORMULA   = 'SF6'
THERMO_DATA(334)%NAME      = 'SULFUR HEXAFLUORIDE'
THERMO_DATA(334)%POLY      = 'NASA9'
THERMO_DATA(334)%BANDS     = 2
THERMO_DATA(334)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(334)%A(1:7,1)  = &
   (/ 0.330952674E+06_EB,-0.473768505E+04_EB, 0.224773807E+02_EB, 0.104695430E-01_EB,-0.256064000E-04_EB,&
      0.215372000E-07_EB,-0.651610000E-11_EB/)
THERMO_DATA(334)%B(1:2,1)  = (/-0.125536058E+06_EB,-0.109176014E+03_EB/)
THERMO_DATA(334)%A(1:7,2)  = &
   (/-0.730672650E+06_EB,-0.636705655E+03_EB, 0.194744285E+02_EB,-0.189433000E-03_EB, 0.417872000E-07_EB,&
     -0.478374000E-11_EB, 0.221352000E-15_EB/)
THERMO_DATA(334)%B(1:2,2)  = (/-0.151060984E+06_EB,-0.814757459E+02_EB/)
THERMO_DATA(334)%H_F       =  -1219.400000_EB
THERMO_DATA(334)%SIGMA     =  5.128_EB ! R-132
THERMO_DATA(334)%EPSOK     =   222.10_EB
THERMO_DATA(334)%PR        =  0.77_EB ! JPCRD (19)5
 
THERMO_DATA(335)%FORMULA   = 'SF6'
THERMO_DATA(335)%NAME      = 'SULFUR HEXAFLUORIDEm'
THERMO_DATA(335)%POLY      = 'NASA9'
THERMO_DATA(335)%BANDS     = 3
THERMO_DATA(335)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(335)%A(1:7,1)  = &
   (/ 0.498580921E+06_EB,-0.693444574E+04_EB, 0.344131833E+02_EB,-0.198403240E-01_EB, 0.149787000E-04_EB,&
     -0.613323000E-08_EB, 0.104516000E-11_EB/)
THERMO_DATA(335)%B(1:2,1)  = (/-0.129706907E+06_EB,-0.174798450E+03_EB/)
THERMO_DATA(335)%A(1:7,2)  = &
   (/-0.681807351E+06_EB,-0.594742996E+03_EB, 0.194500984E+02_EB,-0.182021000E-03_EB, 0.405708000E-07_EB,&
     -0.468382000E-11_EB, 0.218226000E-15_EB/)
THERMO_DATA(335)%B(1:2,2)  = (/-0.165890245E+06_EB,-0.796584589E+02_EB/)
THERMO_DATA(335)%A(1:7,3)  = &
   (/ 0.177707496E+06_EB,-0.653373034E+03_EB, 0.191432254E+02_EB,-0.162488000E-04_EB, 0.100645000E-08_EB,&
     -0.323040000E-13_EB, 0.420390000E-18_EB/)
THERMO_DATA(335)%B(1:2,3)  = (/-0.164699332E+06_EB,-0.775334627E+02_EB/)
THERMO_DATA(335)%H_F       =  -1341.876030_EB
THERMO_DATA(335)%SIGMA     =  5.128_EB ! R-132
THERMO_DATA(335)%EPSOK     =   222.10_EB
THERMO_DATA(335)%PR        =  0.77_EB ! JPCRD (19)5
 
THERMO_DATA(336)%FORMULA   = 'Si'
THERMO_DATA(336)%NAME      = 'SILICON'
THERMO_DATA(336)%POLY      = 'NASA9'
THERMO_DATA(336)%BANDS     = 3
THERMO_DATA(336)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(336)%A(1:7,1)  = &
   (/ 0.983614081E+02_EB, 0.154654452E+03_EB, 0.187643667E+01_EB, 0.132063800E-02_EB,-0.152972000E-05_EB,&
      0.895056000E-09_EB,-0.195287000E-12_EB/)
THERMO_DATA(336)%B(1:2,1)  = (/ 0.526351031E+05_EB, 0.969828888E+01_EB/)
THERMO_DATA(336)%A(1:7,2)  = &
   (/-0.616929885E+06_EB, 0.224068393E+04_EB,-0.444861932E+00_EB, 0.171005600E-02_EB,-0.410771000E-06_EB,&
      0.455888000E-10_EB,-0.188952000E-14_EB/)
THERMO_DATA(336)%B(1:2,2)  = (/ 0.395355876E+05_EB, 0.267966806E+02_EB/)
THERMO_DATA(336)%A(1:7,3)  = &
   (/-0.928654894E+09_EB, 0.544398989E+06_EB,-0.120673974E+03_EB, 0.135966270E-01_EB,-0.760650000E-06_EB,&
      0.214975000E-10_EB,-0.247412000E-15_EB/)
THERMO_DATA(336)%B(1:2,3)  = (/-0.429379212E+07_EB, 0.108638284E+04_EB/)
THERMO_DATA(336)%H_F       =    450.000000_EB
THERMO_DATA(336)%SIGMA     =  2.910_EB ! R-132
THERMO_DATA(336)%EPSOK     =  3036.00_EB
THERMO_DATA(336)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(337)%FORMULA   = 'Si'
THERMO_DATA(337)%NAME      = 'SILICONm'
THERMO_DATA(337)%POLY      = 'NASA9'
THERMO_DATA(337)%BANDS     = 3
THERMO_DATA(337)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(337)%A(1:7,1)  = &
   (/-0.794014667E+03_EB, 0.556741842E+01_EB, 0.249983718E+01_EB,-0.948139000E-04_EB, 0.317125000E-06_EB,&
     -0.419132000E-09_EB, 0.203592000E-12_EB/)
THERMO_DATA(337)%B(1:2,1)  = (/ 0.363644338E+05_EB, 0.527011984E+01_EB/)
THERMO_DATA(337)%A(1:7,2)  = &
   (/-0.616207010E+07_EB, 0.188331040E+05_EB,-0.189930245E+02_EB, 0.111102170E-01_EB,-0.253579000E-05_EB,&
      0.269996000E-09_EB,-0.110506000E-13_EB/)
THERMO_DATA(337)%B(1:2,2)  = (/-0.831408931E+05_EB, 0.159529825E+03_EB/)
THERMO_DATA(337)%A(1:7,3)  = &
   (/-0.542951796E+08_EB, 0.329710570E+05_EB,-0.247057969E+01_EB, 0.396658000E-03_EB,-0.176414000E-07_EB,&
      0.411577000E-12_EB,-0.390437000E-17_EB/)
THERMO_DATA(337)%B(1:2,3)  = (/-0.231588150E+06_EB, 0.522660183E+02_EB/)
THERMO_DATA(337)%H_F       =    308.817528_EB
THERMO_DATA(337)%SIGMA     =  2.910_EB ! R-132
THERMO_DATA(337)%EPSOK     =  3036.00_EB
THERMO_DATA(337)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(338)%FORMULA   = 'Si'
THERMO_DATA(338)%NAME      = 'SILICONp'
THERMO_DATA(338)%POLY      = 'NASA9'
THERMO_DATA(338)%BANDS     = 3
THERMO_DATA(338)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(338)%A(1:7,1)  = &
   (/-0.432979188E+05_EB, 0.679589449E+03_EB, 0.225704614E+00_EB, 0.411860000E-02_EB,-0.423488000E-05_EB,&
      0.232800000E-08_EB,-0.531839000E-12_EB/)
THERMO_DATA(338)%B(1:2,1)  = (/ 0.145203981E+06_EB, 0.193465051E+02_EB/)
THERMO_DATA(338)%A(1:7,2)  = &
   (/ 0.591939023E+05_EB,-0.485673095E+02_EB, 0.255631202E+01_EB,-0.350340000E-04_EB, 0.119030000E-07_EB,&
     -0.208292000E-11_EB, 0.147145000E-15_EB/)
THERMO_DATA(338)%B(1:2,2)  = (/ 0.149143139E+06_EB, 0.524426714E+01_EB/)
THERMO_DATA(338)%A(1:7,3)  = &
   (/-0.436407721E+08_EB, 0.243435060E+05_EB,-0.276333652E+01_EB, 0.592448000E-03_EB,-0.445405000E-07_EB,&
      0.250935000E-11_EB,-0.509021000E-16_EB/)
THERMO_DATA(338)%B(1:2,3)  = (/-0.468321441E+05_EB, 0.519656419E+02_EB/)
THERMO_DATA(338)%H_F       =   1242.508040_EB
THERMO_DATA(338)%SIGMA     =  2.910_EB ! R-132
THERMO_DATA(338)%EPSOK     =  3036.00_EB
THERMO_DATA(338)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(339)%FORMULA   = 'Si2'
THERMO_DATA(339)%NAME      = 'SILICON DIMER'
THERMO_DATA(339)%POLY      = 'NASA9'
THERMO_DATA(339)%BANDS     = 2
THERMO_DATA(339)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(339)%A(1:7,1)  = &
   (/ 0.123759622E+05_EB,-0.102490438E+03_EB, 0.435484852E+01_EB, 0.128106300E-02_EB,-0.253199000E-05_EB,&
      0.226569000E-08_EB,-0.700129000E-12_EB/)
THERMO_DATA(339)%B(1:2,1)  = (/ 0.690694285E+05_EB, 0.325112520E+01_EB/)
THERMO_DATA(339)%A(1:7,2)  = &
   (/ 0.137006066E+07_EB,-0.420706004E+04_EB, 0.933743289E+01_EB,-0.274921700E-02_EB, 0.958635000E-06_EB,&
     -0.137245000E-09_EB, 0.676503000E-14_EB/)
THERMO_DATA(339)%B(1:2,2)  = (/ 0.951088454E+05_EB,-0.316838519E+02_EB/)
THERMO_DATA(339)%H_F       =    580.195524_EB
THERMO_DATA(339)%SIGMA     =  3.280_EB ! R-132
THERMO_DATA(339)%EPSOK     =  3036.00_EB
THERMO_DATA(339)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(340)%FORMULA   = 'SiCl'
THERMO_DATA(340)%NAME      = 'CLOROSIYLIDYNE'
THERMO_DATA(340)%POLY      = 'NASA9'
THERMO_DATA(340)%BANDS     = 2
THERMO_DATA(340)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(340)%A(1:7,1)  = &
   (/ 0.124850832E+05_EB,-0.204417035E+03_EB, 0.497707085E+01_EB,-0.516076000E-03_EB, 0.293198000E-06_EB,&
     -0.366662000E-11_EB,-0.339304000E-13_EB/)
THERMO_DATA(340)%B(1:2,1)  = (/ 0.168652802E+05_EB,-0.226395724E+00_EB/)
THERMO_DATA(340)%A(1:7,2)  = &
   (/ 0.376729456E+06_EB,-0.114795651E+04_EB, 0.573540843E+01_EB,-0.578489000E-03_EB, 0.151730000E-06_EB,&
     -0.129139000E-10_EB, 0.155463000E-15_EB/)
THERMO_DATA(340)%B(1:2,2)  = (/ 0.230627840E+05_EB,-0.609851523E+01_EB/)
THERMO_DATA(340)%H_F       =    142.363219_EB
THERMO_DATA(340)%SIGMA     =  3.748_EB ! R-132
THERMO_DATA(340)%EPSOK     =   980.00_EB
THERMO_DATA(340)%PR        =  0.71_EB ! R-132
 
THERMO_DATA(341)%FORMULA   = 'SiCl4'
THERMO_DATA(341)%NAME      = 'SILICON TETRACHLORIDE'
THERMO_DATA(341)%POLY      = 'NASA9'
THERMO_DATA(341)%BANDS     = 2
THERMO_DATA(341)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(341)%A(1:7,1)  = &
   (/ 0.117164629E+06_EB,-0.218582146E+04_EB, 0.190825050E+02_EB,-0.963633600E-02_EB, 0.883685000E-05_EB,&
     -0.436004000E-08_EB, 0.894023000E-12_EB/)
THERMO_DATA(341)%B(1:2,1)  = (/-0.721280211E+05_EB,-0.730153222E+02_EB/)
THERMO_DATA(341)%A(1:7,2)  = &
   (/-0.210033076E+06_EB,-0.847610771E+02_EB, 0.130636403E+02_EB,-0.255402000E-04_EB, 0.565382000E-08_EB,&
     -0.648875000E-12_EB, 0.300803000E-16_EB/)
THERMO_DATA(341)%B(1:2,2)  = (/-0.837226813E+05_EB,-0.359258478E+02_EB/)
THERMO_DATA(341)%H_F       =   -662.200000_EB
THERMO_DATA(341)%SIGMA     =  5.977_EB ! R-132
THERMO_DATA(341)%EPSOK     =   390.20_EB
THERMO_DATA(341)%PR        =  0.74_EB ! R-132
 
THERMO_DATA(342)%FORMULA   = 'SiF'
THERMO_DATA(342)%NAME      = 'SILICON FLUORIDE'
THERMO_DATA(342)%POLY      = 'NASA9'
THERMO_DATA(342)%BANDS     = 2
THERMO_DATA(342)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(342)%A(1:7,1)  = &
   (/ 0.147822377E+05_EB, 0.135799865E+02_EB, 0.232418264E+01_EB, 0.713285100E-02_EB,-0.102295000E-04_EB,&
      0.714840000E-08_EB,-0.196469000E-11_EB/)
THERMO_DATA(342)%B(1:2,1)  = (/-0.399538065E+04_EB, 0.123112812E+02_EB/)
THERMO_DATA(342)%A(1:7,2)  = &
   (/-0.365363788E+06_EB, 0.872286004E+03_EB, 0.337721827E+01_EB, 0.750815000E-03_EB,-0.230890000E-06_EB,&
      0.376678000E-10_EB,-0.214308000E-14_EB/)
THERMO_DATA(342)%B(1:2,2)  = (/-0.101169766E+05_EB, 0.896813282E+01_EB/)
THERMO_DATA(342)%H_F       =    -25.232686_EB
THERMO_DATA(342)%SIGMA     =  3.318_EB ! R-132
THERMO_DATA(342)%EPSOK     =   585.00_EB
THERMO_DATA(342)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(343)%FORMULA   = 'SiF4'
THERMO_DATA(343)%NAME      = 'SILICON TETRAFLUORIDE'
THERMO_DATA(343)%POLY      = 'NASA9'
THERMO_DATA(343)%BANDS     = 2
THERMO_DATA(343)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(343)%A(1:7,1)  = &
   (/ 0.106967078E+05_EB,-0.956963864E+02_EB, 0.251398859E+01_EB, 0.330978100E-01_EB,-0.457304000E-04_EB,&
      0.309183000E-07_EB,-0.826930000E-11_EB/)
THERMO_DATA(343)%B(1:2,1)  = (/-0.195625253E+06_EB, 0.113372202E+02_EB/)
THERMO_DATA(343)%A(1:7,2)  = &
   (/-0.384589232E+06_EB,-0.656997991E+03_EB, 0.134892572E+02_EB,-0.510047000E-04_EB, 0.534633000E-07_EB,&
     -0.495960000E-11_EB, 0.229931000E-15_EB/)
THERMO_DATA(343)%B(1:2,2)  = (/-0.195728448E+06_EB,-0.467389465E+02_EB/)
THERMO_DATA(343)%H_F       =  -1615.780000_EB
THERMO_DATA(343)%SIGMA     =  4.888_EB ! R-132
THERMO_DATA(343)%EPSOK     =   171.90_EB
THERMO_DATA(343)%PR        =  0.73_EB ! R-132
 
THERMO_DATA(344)%FORMULA   = 'SiH4'
THERMO_DATA(344)%NAME      = 'SILANE'
THERMO_DATA(344)%POLY      = 'NASA9'
THERMO_DATA(344)%BANDS     = 2
THERMO_DATA(344)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(344)%A(1:7,1)  = &
   (/ 0.787299329E+05_EB,-0.552608705E+03_EB, 0.249894430E+01_EB, 0.144211830E-01_EB,-0.846711000E-05_EB,&
      0.272616000E-08_EB,-0.543675000E-12_EB/)
THERMO_DATA(344)%B(1:2,1)  = (/ 0.626966906E+04_EB, 0.496546183E+01_EB/)
THERMO_DATA(344)%A(1:7,2)  = &
   (/ 0.129037874E+07_EB,-0.781339978E+04_EB, 0.182885166E+02_EB,-0.197562100E-02_EB, 0.415650000E-06_EB,&
     -0.459675000E-10_EB, 0.207278000E-14_EB/)
THERMO_DATA(344)%B(1:2,2)  = (/ 0.476688795E+05_EB,-0.980169746E+02_EB/)
THERMO_DATA(344)%H_F       =     34.700000_EB
THERMO_DATA(344)%SIGMA     =  4.084_EB ! R-132
THERMO_DATA(344)%EPSOK     =   287.60_EB
THERMO_DATA(344)%PR        =  0.71_EB ! R-132
 
THERMO_DATA(345)%FORMULA   = 'SiO'
THERMO_DATA(345)%NAME      = 'SILICON MONOXIDE'
THERMO_DATA(345)%POLY      = 'NASA9'
THERMO_DATA(345)%BANDS     = 2
THERMO_DATA(345)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(345)%A(1:7,1)  = &
   (/-0.472277105E+05_EB, 0.806313764E+03_EB,-0.163697613E+01_EB, 0.145427560E-01_EB,-0.172320000E-04_EB,&
      0.104240000E-07_EB,-0.255937000E-11_EB/)
THERMO_DATA(345)%B(1:2,1)  = (/-0.166658590E+05_EB, 0.335579570E+02_EB/)
THERMO_DATA(345)%A(1:7,2)  = &
   (/-0.176513416E+06_EB,-0.319917709E+02_EB, 0.447744193E+01_EB, 0.459176000E-05_EB, 0.355814000E-07_EB,&
     -0.132701000E-10_EB, 0.161325000E-14_EB/)
THERMO_DATA(345)%B(1:2,2)  = (/-0.135084236E+05_EB,-0.838695733E+00_EB/)
THERMO_DATA(345)%H_F       =    -98.842418_EB
THERMO_DATA(345)%SIGMA     =  3.374_EB ! R-132
THERMO_DATA(345)%EPSOK     =   569.00_EB
THERMO_DATA(345)%PR        =  0.69_EB ! R-132
 
THERMO_DATA(346)%FORMULA   = 'SiO2'
THERMO_DATA(346)%NAME      = 'SILICON DIOXIDE'
THERMO_DATA(346)%POLY      = 'NASA9'
THERMO_DATA(346)%BANDS     = 2
THERMO_DATA(346)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(346)%A(1:7,1)  = &
   (/-0.336294878E+05_EB, 0.473407892E+03_EB, 0.230977067E+00_EB, 0.185023080E-01_EB,-0.224279000E-04_EB,&
      0.136498000E-07_EB,-0.335194000E-11_EB/)
THERMO_DATA(346)%B(1:2,1)  = (/-0.422648749E+05_EB, 0.229580321E+02_EB/)
THERMO_DATA(346)%A(1:7,2)  = &
   (/-0.146403119E+06_EB,-0.626144106E+03_EB, 0.796456371E+01_EB,-0.185412000E-03_EB, 0.409521000E-07_EB,&
     -0.469721000E-11_EB, 0.217805000E-15_EB/)
THERMO_DATA(346)%B(1:2,2)  = (/-0.379183477E+05_EB,-0.204528541E+02_EB/)
THERMO_DATA(346)%H_F       =   -322.073477_EB
THERMO_DATA(346)%SIGMA     =  3.706_EB ! R-132
THERMO_DATA(346)%EPSOK     =  2954.00_EB
THERMO_DATA(346)%PR        =  0.72_EB ! R-132
 
THERMO_DATA(347)%FORMULA   = 'SiS'
THERMO_DATA(347)%NAME      = 'SILILCON MONOSULFIDE'
THERMO_DATA(347)%POLY      = 'NASA9'
THERMO_DATA(347)%BANDS     = 2
THERMO_DATA(347)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(347)%A(1:7,1)  = &
   (/ 0.359944929E+05_EB,-0.423972330E+03_EB, 0.465401442E+01_EB, 0.158847100E-02_EB,-0.331025000E-05_EB,&
      0.270610000E-08_EB,-0.811352000E-12_EB/)
THERMO_DATA(347)%B(1:2,1)  = (/ 0.141151557E+05_EB,-0.118320186E+01_EB/)
THERMO_DATA(347)%A(1:7,2)  = &
   (/-0.210232390E+07_EB, 0.622883618E+04_EB,-0.300412088E+01_EB, 0.449550000E-02_EB,-0.136882000E-05_EB,&
      0.199810000E-09_EB,-0.988204000E-14_EB/)
THERMO_DATA(347)%B(1:2,2)  = (/-0.279553817E+05_EB, 0.540582879E+02_EB/)
THERMO_DATA(347)%H_F       =    108.194407_EB
THERMO_DATA(347)%SIGMA     =  3.900_EB ! R-132
THERMO_DATA(347)%EPSOK     =  1432.00_EB
THERMO_DATA(347)%PR        =  0.70_EB ! R-132
 
THERMO_DATA(348)%FORMULA   = 'SnBr'
THERMO_DATA(348)%NAME      = 'STANNIC MONOBROMIDE'
THERMO_DATA(348)%POLY      = 'NASA9'
THERMO_DATA(348)%BANDS     = 2
THERMO_DATA(348)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(348)%A(1:7,1)  = &
   (/ 0.256419354E+05_EB,-0.525912233E+03_EB, 0.768741069E+01_EB,-0.965420500E-02_EB, 0.148286000E-04_EB,&
     -0.994224000E-08_EB, 0.247505000E-11_EB/)
THERMO_DATA(348)%B(1:2,1)  = (/ 0.102048389E+05_EB,-0.112655040E+02_EB/)
THERMO_DATA(348)%A(1:7,2)  = &
   (/ 0.181557854E+07_EB,-0.672826458E+04_EB, 0.133246452E+02_EB,-0.460810200E-02_EB, 0.123644000E-05_EB,&
     -0.152886000E-09_EB, 0.697151000E-14_EB/)
THERMO_DATA(348)%B(1:2,2)  = (/ 0.492558309E+05_EB,-0.564096278E+02_EB/)
THERMO_DATA(348)%H_F       =     75.644020_EB
THERMO_DATA(348)%SIGMA     =  6.388_EB ! R-132
THERMO_DATA(348)%EPSOK     =   563.70_EB
THERMO_DATA(348)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(349)%FORMULA   = 'SnBr4'
THERMO_DATA(349)%NAME      = 'STANNIC BROMIDE'
THERMO_DATA(349)%POLY      = 'NASA9'
THERMO_DATA(349)%BANDS     = 2
THERMO_DATA(349)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(349)%A(1:7,1)  = &
   (/-0.583284092E+04_EB,-0.427019847E+03_EB, 0.146746653E+02_EB,-0.360426300E-02_EB, 0.436669000E-05_EB,&
     -0.278588000E-08_EB, 0.726509000E-12_EB/)
THERMO_DATA(349)%B(1:2,1)  = (/-0.408291645E+05_EB,-0.344710436E+02_EB/)
THERMO_DATA(349)%A(1:7,2)  = &
   (/-0.517681292E+05_EB,-0.742612695E+01_EB, 0.130061950E+02_EB,-0.269259000E-05_EB, 0.633676000E-09_EB,&
     -0.762709000E-13_EB, 0.367111000E-17_EB/)
THERMO_DATA(349)%B(1:2,2)  = (/-0.430016634E+05_EB,-0.247145512E+02_EB/)
THERMO_DATA(349)%H_F       =   -324.216982_EB
THERMO_DATA(349)%SIGMA     =  6.388_EB ! R-132
THERMO_DATA(349)%EPSOK     =   563.70_EB
THERMO_DATA(349)%PR        =  0.74_EB ! R-132
 
THERMO_DATA(350)%FORMULA   = 'SnCl4'
THERMO_DATA(350)%NAME      = 'TIN(IV)CHLORIDE'
THERMO_DATA(350)%POLY      = 'NASA9'
THERMO_DATA(350)%BANDS     = 2
THERMO_DATA(350)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(350)%A(1:7,1)  = &
   (/ 0.424596787E+05_EB,-0.128057432E+04_EB, 0.176844533E+02_EB,-0.957478000E-02_EB, 0.111562000E-04_EB,&
     -0.690723000E-08_EB, 0.175965000E-11_EB/)
THERMO_DATA(350)%B(1:2,1)  = (/-0.550400904E+05_EB,-0.582735300E+02_EB/)
THERMO_DATA(350)%A(1:7,2)  = &
   (/-0.107833686E+06_EB,-0.255430587E+02_EB, 0.130204039E+02_EB,-0.859513000E-05_EB, 0.197657000E-08_EB,&
     -0.233793000E-12_EB, 0.111029000E-16_EB/)
THERMO_DATA(350)%B(1:2,2)  = (/-0.616356203E+05_EB,-0.307270262E+02_EB/)
THERMO_DATA(350)%H_F       =   -478.465969_EB
THERMO_DATA(350)%SIGMA     =  6.202_EB ! R-132
THERMO_DATA(350)%EPSOK     =   420.00_EB
THERMO_DATA(350)%PR        =  0.74_EB ! R-132
 
THERMO_DATA(351)%FORMULA   = 'SO'
THERMO_DATA(351)%NAME      = 'SULFUR MONOXIDE'
THERMO_DATA(351)%POLY      = 'NASA9'
THERMO_DATA(351)%BANDS     = 2
THERMO_DATA(351)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(351)%A(1:7,1)  = &
   (/-0.334275700E+05_EB, 0.640386250E+03_EB,-0.100664123E+01_EB, 0.138151270E-01_EB,-0.170449000E-04_EB,&
      0.106129000E-07_EB,-0.264580000E-11_EB/)
THERMO_DATA(351)%B(1:2,1)  = (/-0.337129219E+04_EB, 0.309386196E+02_EB/)
THERMO_DATA(351)%A(1:7,2)  = &
   (/-0.144341056E+07_EB, 0.411387436E+04_EB,-0.538369578E+00_EB, 0.279415300E-02_EB,-0.663335000E-06_EB,&
      0.783822000E-10_EB,-0.356051000E-14_EB/)
THERMO_DATA(351)%B(1:2,2)  = (/-0.270883806E+05_EB, 0.361535833E+02_EB/)
THERMO_DATA(351)%H_F       =      4.760306_EB
THERMO_DATA(351)%SIGMA     =  3.993_EB ! R-132
THERMO_DATA(351)%EPSOK     =   301.00_EB
THERMO_DATA(351)%PR        =  0.50_EB ! R-132
 
THERMO_DATA(352)%FORMULA   = 'SO'
THERMO_DATA(352)%NAME      = 'SULFUR MONOXIDEm'
THERMO_DATA(352)%POLY      = 'NASA9'
THERMO_DATA(352)%BANDS     = 2
THERMO_DATA(352)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(352)%A(1:7,1)  = &
   (/ 0.842019697E+04_EB,-0.691658668E+02_EB, 0.383766661E+01_EB, 0.216648200E-02_EB,-0.281122000E-05_EB,&
      0.179343000E-08_EB,-0.452180000E-12_EB/)
THERMO_DATA(352)%B(1:2,1)  = (/-0.135416253E+05_EB, 0.431614160E+01_EB/)
THERMO_DATA(352)%A(1:7,2)  = &
   (/ 0.176715615E+06_EB,-0.663398736E+03_EB, 0.517727981E+01_EB,-0.285346000E-03_EB, 0.721442000E-07_EB,&
     -0.367647000E-11_EB,-0.291009000E-15_EB/)
THERMO_DATA(352)%B(1:2,2)  = (/-0.998443801E+04_EB,-0.395145676E+01_EB/)
THERMO_DATA(352)%H_F       =   -105.968086_EB
THERMO_DATA(352)%SIGMA     =  3.993_EB ! R-132
THERMO_DATA(352)%EPSOK     =   301.00_EB
THERMO_DATA(352)%PR        =  0.50_EB ! R-132
 
THERMO_DATA(353)%FORMULA   = 'SO2'
THERMO_DATA(353)%NAME      = 'SULFUR DIOXIDE'
THERMO_DATA(353)%POLY      = 'NASA9'
THERMO_DATA(353)%BANDS     = 2
THERMO_DATA(353)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(353)%A(1:7,1)  = &
   (/-0.531084214E+05_EB, 0.909031167E+03_EB,-0.235689124E+01_EB, 0.220444990E-01_EB,-0.251078000E-04_EB,&
      0.144630000E-07_EB,-0.336907000E-11_EB/)
THERMO_DATA(353)%B(1:2,1)  = (/-0.411375208E+05_EB, 0.404551252E+02_EB/)
THERMO_DATA(353)%A(1:7,2)  = &
   (/-0.112764012E+06_EB,-0.825226138E+03_EB, 0.761617863E+01_EB,-0.199933000E-03_EB, 0.565563000E-07_EB,&
     -0.545432000E-11_EB, 0.291829000E-15_EB/)
THERMO_DATA(353)%B(1:2,2)  = (/-0.335130869E+05_EB,-0.165577609E+02_EB/)
THERMO_DATA(353)%H_F       =   -296.810000_EB
THERMO_DATA(353)%SIGMA     =  4.112_EB ! R-132
THERMO_DATA(353)%EPSOK     =   335.40_EB
THERMO_DATA(353)%PR        =  0.91_EB ! airliquide.com
THERMO_DATA(353)%LIQUID    = .TRUE.
THERMO_DATA(353)%T_L(1:2)  = (/300._EB,301._EB/)
THERMO_DATA(353)%A_L(3,1)  = 1359.14286_EB !J/kg/K
THERMO_DATA(353)%H_V       = 389370._EB !J/kg
THERMO_DATA(353)%T_REF     = 197.15_EB !K
THERMO_DATA(353)%T_MELT    = 197.15_EB !K
THERMO_DATA(353)%T_BOIL    = 263.05_EB !K
THERMO_DATA(353)%DENSITY   = 1434._EB !kg/m^3
THERMO_DATA(353)%MU        = 0.000257_EB  !N.s/m^2
THERMO_DATA(353)%K         = 0.196_EB !W/m/K
THERMO_DATA(353)%BETA      = 0.00212_EB !1/K


 
THERMO_DATA(354)%FORMULA   = 'SO2'
THERMO_DATA(354)%NAME      = 'SULFUR DIOXIDEm'
THERMO_DATA(354)%POLY      = 'NASA9'
THERMO_DATA(354)%BANDS     = 2
THERMO_DATA(354)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(354)%A(1:7,1)  = &
   (/ 0.946090166E+05_EB,-0.856269105E+03_EB, 0.536007422E+01_EB, 0.760957700E-02_EB,-0.109201000E-04_EB,&
      0.720255000E-08_EB,-0.185014000E-11_EB/)
THERMO_DATA(354)%B(1:2,1)  = (/-0.458009481E+05_EB,-0.392995660E+01_EB/)
THERMO_DATA(354)%A(1:7,2)  = &
   (/-0.179340000E+06_EB,-0.366316876E+03_EB, 0.727444105E+01_EB,-0.110194000E-03_EB, 0.244333000E-07_EB,&
     -0.280974000E-11_EB, 0.130516000E-15_EB/)
THERMO_DATA(354)%B(1:2,2)  = (/-0.497307261E+05_EB,-0.126142116E+02_EB/)
THERMO_DATA(354)%H_F       =   -408.606069_EB
THERMO_DATA(354)%SIGMA     =  4.112_EB ! R-132
THERMO_DATA(354)%EPSOK     =   335.40_EB
THERMO_DATA(354)%PR        =  0.91_EB ! airliquide.com
 
THERMO_DATA(355)%FORMULA   = 'UF6'
THERMO_DATA(355)%NAME      = 'URANIUM HEXAFLUORIDEm'
THERMO_DATA(355)%POLY      = 'NASA9'
THERMO_DATA(355)%BANDS     = 3
THERMO_DATA(355)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(355)%A(1:7,1)  = &
   (/ 0.156923086E+06_EB,-0.302727994E+04_EB, 0.270144243E+02_EB,-0.113686100E-01_EB, 0.829858000E-05_EB,&
     -0.258289000E-08_EB, 0.279082000E-12_EB/)
THERMO_DATA(355)%B(1:2,1)  = (/-0.313530738E+06_EB,-0.112893479E+03_EB/)
THERMO_DATA(355)%A(1:7,2)  = &
   (/ 0.269967685E+07_EB,-0.657445967E+04_EB, 0.224173200E+02_EB, 0.605780000E-03_EB,-0.451749000E-06_EB,&
      0.782182000E-10_EB,-0.456033000E-14_EB/)
THERMO_DATA(355)%B(1:2,2)  = (/-0.285566798E+06_EB,-0.918289634E+02_EB/)
THERMO_DATA(355)%A(1:7,3)  = &
   (/-0.786580461E+08_EB, 0.417482550E+05_EB, 0.120114120E+02_EB, 0.695837000E-03_EB,-0.404976000E-07_EB,&
      0.126201000E-11_EB,-0.162008000E-16_EB/)
THERMO_DATA(355)%B(1:2,3)  = (/-0.670439513E+06_EB, 0.174687867E+01_EB/)
THERMO_DATA(355)%H_F       =  -2691.306150_EB
THERMO_DATA(355)%SIGMA     =  5.967_EB ! R-132
THERMO_DATA(355)%EPSOK     =   236.80_EB
THERMO_DATA(355)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(356)%FORMULA   = 'UF6'
THERMO_DATA(356)%NAME      = 'URANIUM HEXAFLUORIDE'
THERMO_DATA(356)%POLY      = 'NASA9'
THERMO_DATA(356)%BANDS     = 3
THERMO_DATA(356)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(356)%A(1:7,1)  = &
   (/ 0.191567406E+06_EB,-0.342639161E+04_EB, 0.280039589E+02_EB,-0.132639210E-01_EB, 0.110712000E-04_EB,&
     -0.482175000E-08_EB, 0.832513000E-12_EB/)
THERMO_DATA(356)%B(1:2,1)  = (/-0.246104519E+06_EB,-0.121161295E+03_EB/)
THERMO_DATA(356)%A(1:7,2)  = &
   (/-0.340902792E+06_EB,-0.145895005E+03_EB, 0.191090253E+02_EB,-0.435845000E-04_EB, 0.961760000E-08_EB,&
     -0.110092000E-11_EB, 0.509265000E-16_EB/)
THERMO_DATA(356)%B(1:2,2)  = (/-0.264364556E+06_EB,-0.657913040E+02_EB/)
THERMO_DATA(356)%A(1:7,3)  = &
   (/-0.263978071E+06_EB,-0.868008982E+02_EB, 0.190187751E+02_EB,-0.210756000E-05_EB, 0.129535000E-09_EB,&
     -0.413609000E-14_EB, 0.536524000E-19_EB/)
THERMO_DATA(356)%B(1:2,3)  = (/-0.264664007E+06_EB,-0.651358154E+02_EB/)
THERMO_DATA(356)%H_F       =  -2148.641650_EB
THERMO_DATA(356)%SIGMA     =  5.967_EB ! R-132
THERMO_DATA(356)%EPSOK     =   236.80_EB
THERMO_DATA(356)%PR        =  0.71_EB ! Assume N2
 
THERMO_DATA(357)%FORMULA   = 'Xe'
THERMO_DATA(357)%NAME      = 'XENON'
THERMO_DATA(357)%POLY      = 'NASA9'
THERMO_DATA(357)%BANDS     = 3
THERMO_DATA(357)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(357)%A(1:7,1)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(357)%B(1:2,1)  = (/-0.745375000E+03_EB, 0.616445421E+01_EB/)
THERMO_DATA(357)%A(1:7,2)  = &
   (/ 0.402522668E+04_EB,-0.120950752E+02_EB, 0.251415335E+01_EB,-0.824810000E-05_EB, 0.253023000E-08_EB,&
     -0.389233000E-12_EB, 0.236044000E-16_EB/)
THERMO_DATA(357)%B(1:2,2)  = (/-0.668580073E+03_EB, 0.606371072E+01_EB/)
THERMO_DATA(357)%A(1:7,3)  = &
   (/ 0.254039746E+09_EB,-0.110537377E+06_EB, 0.138264410E+02_EB, 0.150061500E-02_EB,-0.393536000E-06_EB,&
      0.276579000E-10_EB,-0.594399000E-15_EB/)
THERMO_DATA(357)%B(1:2,3)  = (/ 0.928544383E+06_EB,-0.110983456E+03_EB/)
THERMO_DATA(357)%H_F       =      0.000000_EB
THERMO_DATA(357)%SIGMA     =  4.047_EB ! R-132
THERMO_DATA(357)%EPSOK     =   231.00_EB
THERMO_DATA(357)%PR        =  0.67_EB ! R-132
THERMO_DATA(357)%T(1:2)    = (/300._EB,301._EB/)
THERMO_DATA(357)%A_L(3,1)  = 340000._EB !J/kg/K
THERMO_DATA(357)%H_V       = 160023.7636_EB !J/kg
THERMO_DATA(357)%T_REF     = 165.01_EB !K
THERMO_DATA(357)%T_MELT    = 161.40_EB !K
THERMO_DATA(357)%T_BOIL    = 165.01_EB !K
THERMO_DATA(357)%DENSITY   = 2879.8_EB !kg/m^3 JPCRD 59
THERMO_DATA(357)%BETA      = 0.002372042_EB !1/K JPCRD 59
THERMO_DATA(357)%MU        = 0.0004727_EB !Ns/m^2 JPCRD 59
THERMO_DATA(357)%K         = 0.07165 !W/m/K JPCRD 59

THERMO_DATA(358)%FORMULA   = 'Xe'
THERMO_DATA(358)%NAME      = 'XENONp'
THERMO_DATA(358)%POLY      = 'NASA9'
THERMO_DATA(358)%BANDS     = 3
THERMO_DATA(358)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(358)%A(1:7,1)  = &
   (/ 0.100292362E+03_EB,-0.121875365E+01_EB, 0.250601649E+01_EB,-0.154741000E-04_EB, 0.219137000E-07_EB,&
     -0.162368000E-10_EB, 0.492913000E-14_EB/)
THERMO_DATA(358)%B(1:2,1)  = (/ 0.140766537E+06_EB, 0.751671247E+01_EB/)
THERMO_DATA(358)%A(1:7,2)  = &
   (/-0.124168389E+05_EB,-0.150065464E+03_EB, 0.296467829E+01_EB,-0.469340000E-03_EB, 0.195914000E-06_EB,&
     -0.303776000E-10_EB, 0.163736000E-14_EB/)
THERMO_DATA(358)%B(1:2,2)  = (/ 0.141496681E+06_EB, 0.456568573E+01_EB/)
THERMO_DATA(358)%A(1:7,3)  = &
   (/-0.256227588E+09_EB, 0.157047691E+06_EB,-0.363553723E+02_EB, 0.501939300E-02_EB,-0.343811000E-06_EB,&
      0.114054000E-10_EB,-0.129566000E-15_EB/)
THERMO_DATA(358)%B(1:2,3)  = (/-0.110355655E+07_EB, 0.343618881E+03_EB/)
THERMO_DATA(358)%H_F       =   1176.552230_EB
THERMO_DATA(358)%SIGMA     =  4.047_EB ! R-132
THERMO_DATA(358)%EPSOK     =   231.00_EB
THERMO_DATA(358)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(359)%FORMULA   = 'Zn'
THERMO_DATA(359)%NAME      = 'ZINC'
THERMO_DATA(359)%POLY      = 'NASA9'
THERMO_DATA(359)%BANDS     = 3
THERMO_DATA(359)%T(1:4)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(359)%A(1:7,1)  = &
   (/ 0.000000000E+00_EB, 0.000000000E+00_EB, 0.250000000E+01_EB, 0.000000000E+00_EB, 0.000000000E+00_EB,&
      0.000000000E+00_EB, 0.000000000E+00_EB/)
THERMO_DATA(359)%B(1:2,1)  = (/ 0.149380507E+05_EB, 0.511886101E+01_EB/)
THERMO_DATA(359)%A(1:7,2)  = &
   (/-0.175559149E+06_EB, 0.498413924E+03_EB, 0.196938629E+01_EB, 0.260881000E-03_EB,-0.562720000E-07_EB,&
      0.272334000E-11_EB, 0.426669000E-15_EB/)
THERMO_DATA(359)%B(1:2,2)  = (/ 0.117377346E+05_EB, 0.896108565E+01_EB/)
THERMO_DATA(359)%A(1:7,3)  = &
   (/-0.208728796E+09_EB, 0.157817813E+06_EB,-0.362203311E+02_EB, 0.334523000E-02_EB,-0.856742000E-08_EB,&
     -0.712254000E-11_EB, 0.169119000E-15_EB/)
THERMO_DATA(359)%B(1:2,3)  = (/-0.121784767E+07_EB, 0.345943996E+03_EB/)
THERMO_DATA(359)%H_F       =    130.400000_EB
THERMO_DATA(359)%SIGMA     =  2.891_EB ! R-132
THERMO_DATA(359)%EPSOK     =     2.89_EB
THERMO_DATA(359)%PR        =  0.67_EB ! R-132
 
THERMO_DATA(360)%FORMULA   = 'Zn'
THERMO_DATA(360)%NAME      = 'ZINCp'
THERMO_DATA(360)%POLY      = 'NASA9'
THERMO_DATA(360)%BANDS     = 3
THERMO_DATA(360)%T(1:4)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB, 0.200000000E+05_EB/)
THERMO_DATA(360)%A(1:7,1)  = &
   (/ 0.409834000E-03_EB,-0.434358000E-05_EB, 0.250000002E+01_EB,-0.438904000E-10_EB, 0.556397000E-13_EB,&
     -0.363823000E-16_EB, 0.960788000E-20_EB/)
THERMO_DATA(360)%B(1:2,1)  = (/ 0.124697992E+06_EB, 0.581199550E+01_EB/)
THERMO_DATA(360)%A(1:7,2)  = &
   (/-0.343617946E+06_EB, 0.956735524E+03_EB, 0.151147895E+01_EB, 0.461347000E-03_EB,-0.878680000E-07_EB,&
      0.755857000E-12_EB, 0.116883000E-14_EB/)
THERMO_DATA(360)%B(1:2,2)  = (/ 0.118532193E+06_EB, 0.130074267E+02_EB/)
THERMO_DATA(360)%A(1:7,3)  = &
   (/-0.301174768E+10_EB, 0.207472935E+07_EB,-0.558952696E+03_EB, 0.750139640E-01_EB,-0.513676000E-05_EB,&
      0.174166000E-09_EB,-0.232392000E-14_EB/)
THERMO_DATA(360)%B(1:2,3)  = (/-0.160905786E+08_EB, 0.482478801E+04_EB/)
THERMO_DATA(360)%H_F       =   1043.000130_EB
THERMO_DATA(360)%SIGMA     =  2.891_EB ! R-132
THERMO_DATA(360)%EPSOK     =     2.89_EB
THERMO_DATA(360)%PR        =  0.67_EB ! R-132


THERMO_DATA(361)%FORMULA   = 'HNO2'
THERMO_DATA(361)%NAME      = 'NITROUS ACID'
THERMO_DATA(361)%POLY      = 'NASA9'
THERMO_DATA(361)%BANDS     = 2
THERMO_DATA(361)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(361)%A(1:7,1)  = &
   (/8.59198506E+03_EB,1.20364405E+02_EB,9.41297912E-01_EB,1.94289180E-02_EB,-2.25317000E-05_EB,&
   1.38459000E-08_EB,-3.47355000E-12_EB/)
THERMO_DATA(361)%B(1:2,1)  = (/-1.10633720E+04_EB,2.07396733E+01_EB/)
THERMO_DATA(361)%A(1:7,2)  = &
   (/8.78790413E+05_EB,-3.99045503E+03_EB,1.18734927E+01_EB,-4.88190000E-04_EB,7.13364000E-08_EB,&
   -5.37630000E-12_EB,1.58178000E-16_EB/)
THERMO_DATA(361)%B(1:2,2)  = (/1.24634324E+04_EB,-4.60887469E+01_EB/)
THERMO_DATA(361)%H_F       =   -78.451922_EB
THERMO_DATA(361)%SIGMA     =  3.828_EB ! GRM3
THERMO_DATA(361)%EPSOK     =   232.40_EB
THERMO_DATA(361)%PR        =  0.71_EB ! Assume N2

THERMO_DATA(362)%FORMULA   = 'N2H3'
THERMO_DATA(362)%NAME      = 'HYDRAZINYL RADICAL'
THERMO_DATA(362)%POLY      = 'NASA7'
THERMO_DATA(362)%BANDS     = 2
THERMO_DATA(362)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.500000000E+04_EB/)
THERMO_DATA(362)%A(1:5,1)  = &
   (/ 3.17420400E+00_EB, 4.71590700E-03_EB, 1.33486700E-05_EB,-1.91968500E-08_EB, 7.48756400E-12_EB/)
THERMO_DATA(362)%B(1:2,1)  = (/1.72727000E+04_EB, 7.55722400E+00_EB/)
THERMO_DATA(362)%A(1:5,2)  = &
   (/ 4.44184600E+00_EB, 7.21427100E-03_EB,-2.49568400E-06_EB, 3.92056500E-10_EB,-2.29895000E-14_EB/)
THERMO_DATA(362)%B(1:2,2)  = (/1.66422100E+04_EB,-4.27520500E-01_EB/)
THERMO_DATA(362)%H_F       =  153.9194113_EB
THERMO_DATA(362)%SIGMA     =  3.900_EB ! GRM3
THERMO_DATA(362)%EPSOK     =  200.00_EB
THERMO_DATA(362)%PR        =  0.71_EB ! Assume N2

THERMO_DATA(363)%FORMULA   = 'HCCOH'
THERMO_DATA(363)%NAME      = 'HCCOH'
THERMO_DATA(363)%POLY      = 'NASA7'
THERMO_DATA(363)%BANDS     = 2
THERMO_DATA(363)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.500000000E+04_EB/)
THERMO_DATA(363)%A(1:5,1)  = &
   (/ 1.24237330E+00_EB, 3.10722010E-02_EB,-5.08668640E-05_EB, 4.31371310E-08_EB,-1.40145940E-11_EB/)
THERMO_DATA(363)%B(1:2,1)  = (/ 8.03161430E+03_EB,1.38743190E+01_EB/)
THERMO_DATA(363)%A(1:5,2)  = &
   (/ 5.92382910E+00_EB, 6.79236000E-03_EB,-2.56585640E-06_EB,4.49878410E-10_EB,-2.99401010E-14_EB/)
THERMO_DATA(363)%B(1:2,2)  = (/ 7.26462600E+03_EB,-7.60177420E+00_EB/)
THERMO_DATA(363)%H_F       =  153.9194113_EB
THERMO_DATA(363)%SIGMA     =  3.970_EB ! GRM3
THERMO_DATA(363)%EPSOK     =  436.00_EB
THERMO_DATA(363)%PR        =  0.71_EB ! Assume N2

THERMO_DATA(364)%FORMULA   = 'C5H4OH'
THERMO_DATA(364)%NAME      = 'PENTANOL'
THERMO_DATA(364)%POLY      = 'NASA7'
THERMO_DATA(364)%BANDS     = 2
THERMO_DATA(364)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(364)%A(1:5,1)  = &
   (/-1.28222360E+00_EB, 4.90411600E-02_EB,-1.36889970E-05_EB,-2.91338580E-08_EB, 1.90069640E-11_EB/)
THERMO_DATA(364)%B(1:2,1)  = (/ 8.00870980E+03_EB,3.07983580E+01_EB/)
THERMO_DATA(364)%A(1:5,2)  = &
   (/ 1.33679120E+01_EB, 1.52057850E-02_EB,-5.45922580E-06_EB, 8.81348660E-10_EB,-5.27744540E-14_EB/)
THERMO_DATA(364)%B(1:2,2)  = (/ 3.84115060E+03_EB,-4.59208390E+01_EB/)
THERMO_DATA(364)%H_F       =  80.12323385_EB
THERMO_DATA(364)%SIGMA     =  5.290_EB ! GRM3
THERMO_DATA(364)%EPSOK     =  464.80_EB
THERMO_DATA(364)%PR        =  0.71_EB ! Assume N2

THERMO_DATA(365)%FORMULA   = 'CH3CCH2'
THERMO_DATA(365)%NAME      = 'CYCLOPROPYL'
THERMO_DATA(365)%POLY      = 'NASA7'
THERMO_DATA(365)%BANDS     = 2
THERMO_DATA(365)%T(1:3)    = (/ 0.298150000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(365)%A(1:5,1)  = &
   (/ 1.73292090E+00_EB, 2.23946200E-02_EB,-5.14906110E-06_EB,-6.75964660E-09_EB, 3.82532110E-12_EB/)
THERMO_DATA(365)%B(1:2,1)  = (/2.90404980E+04_EB, 1.65688780E+01_EB/)
THERMO_DATA(365)%A(1:5,2)  = &
   (/ 5.42555280E+00_EB, 1.55110720E-02_EB,-5.66783500E-06_EB, 7.92243880E-10_EB,-1.68780340E-14_EB/)
THERMO_DATA(365)%B(1:2,2)  = (/ 2.78430270E+04_EB,-3.35271840E+00_EB/)
THERMO_DATA(365)%H_F       =  253.5539377_EB
THERMO_DATA(365)%SIGMA     =  4.982_EB ! GRM3
THERMO_DATA(365)%EPSOK     =  266.80_EB
THERMO_DATA(365)%PR        =  0.71_EB ! Assume N2

THERMO_DATA(366)%FORMULA   = 'C3H7'
THERMO_DATA(366)%NAME      = 'ISOPROPYL RADICAL'
THERMO_DATA(366)%POLY      = 'NASA9'
THERMO_DATA(366)%BANDS     = 2
THERMO_DATA(366)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(366)%A(1:7,1)  = &
   (/-2.95206345E+05_EB, 5.29443230E+03_EB,-3.10528701E+01_EB,1.14387156E-01_EB,-1.29175000E-04_EB,&
      8.05784000E-08_EB,-2.09391000E-11_EB/)
THERMO_DATA(366)%B(1:2,1)  = (/-1.47681551E+04_EB, 1.98808236E+02_EB/)
THERMO_DATA(366)%A(1:7,2)  = &
   (/ 5.80700252E+06_EB,-2.41122000E+04_EB, 4.08528840E+01_EB,-4.51785100E-03_EB, 8.49943000E-07_EB,&
     -8.57351000E-11_EB, 3.58338000E-15_EB/)
THERMO_DATA(366)%B(1:2,2)  = (/ 1.54650405E+05_EB,-2.48709837E+02_EB/)
THERMO_DATA(366)%H_F       =    93.3_EB
THERMO_DATA(366)%SIGMA     =  4.982_EB ! GRM3
THERMO_DATA(366)%EPSOK     =   266.80_EB
THERMO_DATA(366)%PR        =  0.71_EB ! Assume N2

THERMO_DATA(367)%FORMULA   = 'C8H18'
THERMO_DATA(367)%NAME      = 'ISO-OCTANE'
THERMO_DATA(367)%POLY      = 'NASA9'
THERMO_DATA(367)%BANDS     = 2
THERMO_DATA(367)%T(1:3)    = (/ 0.200000000E+03_EB, 0.100000000E+04_EB, 0.600000000E+04_EB/)
THERMO_DATA(367)%A(1:7,1)  = &
   (/-1.688758565E+05_EB, 3.126903227E+03_EB,-2.123502828E+01_EB, 1.489151508E-01_EB,-1.151180135E-04_EB,&
      4.473216170E-08_EB,-5.554882070E-12_EB/)
THERMO_DATA(367)%B(1:2_EB,1)  = (/-4.468060620E+04_EB, 1.417455793E+02_EB/)
THERMO_DATA(367)%A(1:7_EB,2)  = &
   (/ 1.352765032E+07_EB,-4.663370340E+04_EB, 7.795313180E+01_EB, 1.423729984E-02_EB,-5.073593910E-06_EB,&
      7.248232970E-10_EB,-3.819190110E-14_EB/)
THERMO_DATA(367)%B(1:2_EB,2)  = (/ 2.541178017E+05_EB,-4.933887190E+02_EB/)
THERMO_DATA(367)%H_F       =   -224.010000_EB
THERMO_DATA(367)%SIGMA     =  4.892_EB ! R-132
THERMO_DATA(367)%EPSOK     =   231.60_EB
THERMO_DATA(367)%PR        =  0.64_EB ! Martinez
THERMO_DATA(367)%RADCAL_ID = 'N-HEPTANE'
THERMO_DATA(367)%LIQUID    = .TRUE.
THERMO_DATA(367)%T_L(1:2)  = (/216.37_EB,380._EB/)
THERMO_DATA(367)%A_L(1:7,1)= (/1.419157943E+05_EB,-2.937251288E+03_EB, 4.168834760E+01_EB,-8.436942210E-02_EB,&
                               2.894147919E-04_EB,-2.200563712E-07_EB, 7.234225570E-11_EB/)
THERMO_DATA(367)%CP_UNIT   = 8314.472_EB / 112.21264_EB !J/kg/K
THERMO_DATA(367)%H_V       = 307716.4967_EB !J/kg
THERMO_DATA(367)%T_REF     = 298.15_EB !K
THERMO_DATA(367)%T_MELT    = 216.3_EB !K
THERMO_DATA(367)%T_BOIL    = 398.44_EB !K
THERMO_DATA(367)%DENSITY   = 703._EB !kg/m^3
THERMO_DATA(367)%FUEL      = .TRUE.
THERMO_DATA(367)%K         = 0.147_EB !W/m/K
THERMO_DATA(367)%MU        = 0.00051_EB !N.s/m^2
THERMO_DATA(367)%BETA      = 0.00114_EB !1/K

END SUBROUTINE DEFINE_THERMO_PROPS

END PROGRAM MAKE_SPEC_TABLE